数据库为什么更新不了?
我用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()