datatable.newrow来插入数据出错,大家帮忙看一下
源代码如下:
Dim cnTemp As SqlConnection = New SqlConnection("Persist Security Info=False;Integrated Security=false;database=service;server=127.0.0.1;user=sa; Connect Timeout=30")
Dim dsetTemp As DataSet
Dim cmdTemp As SqlDataAdapter
Dim intTemp As Integer
Dim strNumber As String
Dim strName As String
Dim rowTemp As DataRow
strNumber = TxtNumber.Text
strName = TxtName.Text
If strNumber = "" Or strName = "" Then
Exit Sub
End If
cnTemp.Open()
dsetTemp = New DataSet()
cmdTemp = New SqlDataAdapter("select * from person", cnTemp)
cmdTemp.Fill(dsetTemp, "person")
rowTemp = dsetTemp.Tables("person").NewRow
rowTemp.BeginEdit()
rowTemp("Pnumber") = strNumber
rowTemp("Pname") = strName
rowTemp("Ppassword") = "1"
rowTemp("Padmin") = 0
rowTemp.EndEdit()
dsetTemp.Tables("person").Rows().Add(rowTemp)
cmdTemp.Update(dsetTemp, "person")
cnTemp.Close()
执行时出错:
异常详细信息: System.InvalidOperationException: 当传递具有新行的 DataRow 集合时,更新要求有效的 InsertCommand。