2005-09-15
怎么把ACCESS不同的数据库合并用S
用VB6的ADO控件,使用SQL语句可实现两个表格式一样数据不同的数据合并,且能把源数据表和目标数据表主关键词相同的数据更新,并可在目标数据表中添加新的数据。提问者应依据所涉及数据库情况对代码改动。 具体代码如下:第一部分,定义变量Option ExplicitDim zh_bm(11, 1500)Dim zh_bm1(11, 1500)Dim zsl As IntegerDim zsl1 As IntegerDim i As IntegerDim j As IntegerDim ii As IntegerDim jj As Integer第二部分,将源数据表数据传...全部
用VB6的ADO控件,使用SQL语句可实现两个表格式一样数据不同的数据合并,且能把源数据表和目标数据表主关键词相同的数据更新,并可在目标数据表中添加新的数据。提问者应依据所涉及数据库情况对代码改动。
具体代码如下:第一部分,定义变量Option ExplicitDim zh_bm(11, 1500)Dim zh_bm1(11, 1500)Dim zsl As IntegerDim zsl1 As IntegerDim i As IntegerDim j As IntegerDim ii As IntegerDim jj As Integer第二部分,将源数据表数据传递给变量 Adodc1。
ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=D:\DATA_REF\ b;Persist Security Info=False" Adodc1。
RecordSource = "SELECT * FROM mdlk_sj where 销售='N' order by 码单号" Adodc1。Refresh DataGrid1。
Refresh zsl = Adodc1。Recordset。RecordCount Adodc1。Recordset。MoveFirst For i = 0 To zsl - 1 For j = 0 To 11 zh_bm(j, i) = Adodc1。
Recordset(j) Next j Adodc1。Recordset。MoveNext Next i Adodc1。Recordset。MoveFirst第三部分,添加与更新目标数据表 Adodc2。
ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=D:\DATA_REF\ b;Persist Security Info=False" Adodc2。
RecordSource = "SELECT * FROM MDLK_SJ1 where 码单号='" & "" & "'" ' order by 码单号" Adodc2。Refresh DataGrid2。
Refresh For i = 0 To zsl - 1 Adodc2。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=D:\DATA_REF\ b;Persist Security Info=False" Adodc2。
RecordSource = "SELECT * FROM MDLK_SJ1 where 码单号='" & zh_bm(4, i) & "'" ' order by 码单号" Adodc2。
Refresh DataGrid2。Refresh zsl1 = Adodc2。Recordset。RecordCount Text2 = zsl1 If zsl1 = 0 Then Label2。
BackColor = vbGreen Adodc2。Recordset。AddNew For j = 0 To 11 Adodc2。Recordset(j) = zh_bm(j, i) Next j Adodc2。
Recordset。Update Adodc2。ConnectionString = "Provider=Microsoft。Jet。OLEDB。4。0;Data Source=D:\DATA_REF\ b;Persist Security Info=False" Adodc2。
RecordSource = "SELECT * FROM MDLK_SJ1 where 码单号='" & zh_bm(4, i) & "'" ' order by 码单号" Adodc2。
Refresh DataGrid2。Refresh ElseIf zsl1 = 1 Then Label2。BackColor = vbRed For j = 0 To 11 Adodc2。
Recordset(j) = zh_bm(j, i) Next j Adodc2。Recordset。Update Adodc2。ConnectionString = "Provider=Microsoft。
Jet。OLEDB。4。0;Data Source=D:\DATA_REF\ b;Persist Security Info=False" Adodc2。RecordSource = "SELECT * FROM MDLK_SJ1 where 码单号='" & zh_bm(4, i) & "'" ' order by 码单号" Adodc2。
Refresh DataGrid2。Refresh End If Next i'以下是目标数据表显示刷新 Adodc2。ConnectionString = "Provider=Microsoft。
Jet。OLEDB。4。0;Data Source=D:\DATA_REF\ b;Persist Security Info=False" Adodc2。RecordSource = "SELECT * FROM MDLK_SJ1 order by 码单号" Adodc2。
Refresh DataGrid2。Refresh上述代码在VB6调试通过,供参考。。收起