For i = 0 To ds.Tables("CSV").Rows.Count - 1
ds.Tables("tmpData").ImportRow(ds.Tables("CSV").Rows(i))
'Dim iRow As DataRow = ds.Tables("tmpData").NewRow
myAdpt.Update(ds, "tmpData")
Next
...全文
1089打赏收藏
dataset.table更新数据库问题
For i = 0 To ds.Tables("CSV").Rows.Count - 1 ds.Tables("tmpData").ImportRow(ds.Tables("CSV").Rows(i)) 'Dim iRow As DataRow = ds.Tables("tmpData").NewRow myAdpt.Update(ds, "tmpData") Next
发错,重发
Try
Dim SBC As New SqlCommandBuilder(myAdpt)
myAdpt.Update(ds, "tmpData")
Catch ex As Exception
MsgBox(ex.Message)
Return
End Try
注意myAdpt至少要给他一个查询的command
Try
Dim SBC As New SqlCommandBuilder(sda)
myAdpt.Update(ds, "tmpData")
Catch ex As Exception
MsgBox(ex.Message)
Return
End Try
注意myAdpt至少要给他一个查询的command
首先将数据表 tempdb 设置主键
myAdpt = New SqlClient.SqlDataAdapter(iStr, myCon)
Dim Bui As New SqlCommandBuilder(myAdpt)
再进行
If ds.Tables.Contains("tmpData") Then
ds.Tables.Remove("tmpData")
End If
myAdpt.Fill(ds, "tmpData")
For i = 0 To ds.Tables("CSV").Rows.Count - 1
ds.Tables("tmpData").ImportRow(ds.Tables("CSV").Rows(i))
'Dim iRow As DataRow = ds.Tables("tmpData").NewRow
myAdpt.Update(ds, "tmpData")
Next
iStr = "select * from tempdb..gl_aaaa"
myAdpt = New SqlClient.SqlDataAdapter(iStr, myCon)
If ds.Tables.Contains("tmpData") Then
ds.Tables.Remove("tmpData")
End If
myAdpt.Fill(ds, "tmpData")
For i = 0 To ds.Tables("CSV").Rows.Count - 1
ds.Tables("tmpData").ImportRow(ds.Tables("CSV").Rows(i))
'Dim iRow As DataRow = ds.Tables("tmpData").NewRow
myAdpt.Update(ds, "tmpData")
Next