用SQL語句想把兩個(gè)表格式一樣數(shù)據(jù)不同的數(shù)據(jù)庫合并，并把導(dǎo)入部分相同數(shù)據(jù)更新 十分感謝

熱心網(wǎng)友

用VB6的ADO控件，使用SQL語句可實(shí)現(xiàn)兩個(gè)表格式一樣數(shù)據(jù)不同的數(shù)據(jù)合并，且能把源數(shù)據(jù)表和目標(biāo)數(shù)據(jù)表主關(guān)鍵詞相同的數(shù)據(jù)更新，并可在目標(biāo)數(shù)據(jù)表中添加新的數(shù)據(jù)。提問者應(yīng)依據(jù)所涉及數(shù)據(jù)庫情況對(duì)代碼改動(dòng)。具體代碼如下：第一部分，定義變量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第二部分，將源數(shù)據(jù)表數(shù)據(jù)傳遞給變量 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 碼單號(hào)" 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第三部分，添加與更新目標(biāo)數(shù)據(jù)表 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 碼單號(hào)='" & "" & "'" ' order by 碼單號(hào)" 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 碼單號(hào)='" & zh_bm(4, i) & "'" ' order by 碼單號(hào)" 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 碼單號(hào)='" & zh_bm(4, i) & "'" ' order by 碼單號(hào)" 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 碼單號(hào)='" & zh_bm(4, i) & "'" ' order by 碼單號(hào)" Adodc2。Refresh DataGrid2。Refresh End If Next i'以下是目標(biāo)數(shù)據(jù)表顯示刷新 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 碼單號(hào)" Adodc2。Refresh DataGrid2。Refresh上述代碼在VB6調(diào)試通過，供參考。。

熱心網(wǎng)友

這個(gè)也不懂啊查一下百度網(wǎng)嘍