数据库为什么更新不了？

[zhongminsheng]

我用IBM DB2 7.1 pack3
以下是我的代码
Dim conngl As New OleDb.OleDbConnection
Dim connzq As New OleDb.OleDbConnection
Dim adp As New OleDb.OleDbDataAdapter
Dim adp1 As New OleDb.OleDbDataAdapter
Dim commgl As New OleDb.OleDbCommand
Dim commzq As New OleDb.OleDbCommand
Dim data As New DataSet
conngl.ConnectionString = "PROVIDER=MSDataShape; DATA Provider=IBMDADB2.1;password=;Persist Security Info=True;User ID=db2admin;Data Source=zqgl"
conngl.Open()
commgl.Connection = conngl
connzq.ConnectionString = "PROVIDER=MSDataShape; DATA Provider=IBMDADB2.1;password=;Persist Security Info=True;User ID=db2admin;Data Source=zq"
commzq.Connection = connzq
connzq.Open()



commgl.CommandText = "select * from CDQK"
adp.SelectCommand = commgl
adp.Fill(data, "gl")
commzq.CommandText = "select * from CDQK"
adp1.SelectCommand = commzq
adp1.Fill(data, "zq")
' data.Tables("zq").re()
Dim row As DataRow
Dim i As Integer
For Each row In data.Tables("gl").Rows
Dim row1 As DataRow
row1 = data.Tables("zq").NewRow

For i = 0 To row.Table.Columns.Count - 1
row1.Item(i) = row.Item(i)
Next

data.Tables("zq").Rows.Add(row1)
data.Tables("zq").AcceptChanges()
data.AcceptChanges()
Next
data.AcceptChanges()

[zhongminsheng]

没有update()

[programmeraaron]

把所有的AcceptChanges()方法去掉,改成Update()

[rock29]

你既然选择手工生成dataadapter,那么要想进行添加/删除/插入工作,就要指定insert command/delete command/update command,而你只指定了select command语句,这就注定你只能select出来数据而不能进行其它操作,不信你试试.

用向导生成dataadapter,切换到代码页,查看"窗体生成七生成的代码",那里就有insert command/delete command/update command

[zhongminsheng]

up