代码如下:Dim cmd As new SQLCommand
cmd.C
Dim dt As DataTable
Dim count As Integer
Dim Filter As String
If t.Current.DataRow.RowState=DataRowState.Added Then
cmd.CommandText="Insert I nto {银行账户} (工号,姓名,银行账号,银行类别,人员类别) Values('" & r("工号") & "','" & r("姓名") & "','" & r("银行账号") & "','" & r("银行类别") & "','" & r("人员类别") & "')"
count=cmd.ExecuteNonQuery
MessageBox.Show("增加" & count & "条记录完毕!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
cmd.CommandText="UPDAT E {银行账户} set 姓名='" & r("姓名") & "'," & "银行账号='" & r("银行账号") & "'," & "人员类别='" & r("人员类别") & "' where [工号]='" & r("工号") & "'"
count=cmd.ExecuteNonQuery
MessageBox.Show("修改" & count & "条记录完毕!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
数据库链接没有问题,加载窗体时能够获取数据,但修改后保存就会报错。
[此贴子已经被作者于2016/7/7 17:39:11编辑过]