0

我的数据库中有这个表结构：

CREATE TABLE RIAD (
NumeroR int primary key identity,
 NomR varchar(50),
 AdresseRueR varchar(50),
 CodePostalR int,
  VilleR varchar(50),
 TelephoneR varchar(50),
 NomContactR varchar(50),
 CodeReg int,
 NombreDePlaces int)

我有这个表格：

在此处输入图像描述

当我单击按钮 Ajouter 时，我希望从三个按钮上方的文本字段中将新记录添加到我的数据库中的 RIAD 表中。

这是我尝试过的代码：

Public cnx As New SqlConnection("data source=localhost; initial catalog=EFF_TSDI_2009_V1; integrated security=sspi")
    Public ds As New DataSet
    Public adapterRiad As SqlDataAdapter
    Public builderRiad As SqlCommandBuilder

Private Sub MajRiad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        adapterRiad = New SqlDataAdapter()
        adapterRiad.SelectCommand = New SqlCommand("SELECT  * FROM RIAD", cnx)
        adapterRiad.Fill(ds, "RIAD")
        DataGridView1.DataSource = ds.Tables("RIAD")
        builderRiad = New SqlCommandBuilder(adapterRiad)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dialog As DialogResult = MessageBox.Show("Voulez vous vraiment ajouter cette personne ?", "Confirmation", MessageBoxButtons.YesNo)
        If (dialog = DialogResult.Yes) Then

            ds.Tables("RIAD").Rows.Add(nomR.Text, AdresseRueR.Text, CInt(CodePostalR.Text), VilleR.Text, TelephoneR.Text, NomContactR.Text, _
CInt(CodeReg.Text), CInt(NombreDePlaces.Text))
            For Each c As Control In Me.Controls
                If TypeOf (c) Is TextBox Then
                    c.Text = String.Empty
                End If
            Next
            adapterRiad.InsertCommand = builderRiad.GetInsertCommand
            adapterRiad.Update(ds, "RIAD")

        End If
    End Sub

但是当我点击按钮 Ajouter 我得到这个错误：

输入字符串的格式不正确。无法存储在 NumeroR 列中。预期类型是 Int32。

<eeeee>是我试图在 NomR 文本字段中写入的值，而 VB.net 正在尝试以 NomR 文本字段的值作为主键保存新行，但主键是标识。

4

1 回答 1

0

而不是使用Rows.Add()方法，您可能想要明确说明哪个字段在哪里......这是更多代码，但会阻止框架代表您做出假设。

这是一个参考。相关部分是“将新记录插入无类型数据集”

因此，您可以执行以下操作：

Dim newRiadRow As DataRow = ds.Tables("RIAD").NewRow()

newCustomersRow("NomR") = nomR.Text
newCustomersRow("AdresseRueR") = AdresseRueR.Text
'More fields here

ds.Tables("RIAD").Rows.Add(newRiadRow)
于 2013-03-23T00:28:46.593 回答