15-01-14, 12:18 AM
السلام عليكم
لدي cn1,cn2,rs11,rs12,rs12 معرفين
و لدي الكود التالي لا ينفذ و هو ضمن كوماند
لدي cn1,cn2,rs11,rs12,rs12 معرفين
و لدي الكود التالي لا ينفذ و هو ضمن كوماند
كود :
Text6.Text = "match " & Text1.Text
StrFileNm = "db1.MDB"
StrPath = App.Path & "\" & StrFileNm
StrFileNm2 = "db2.MDB"
StrPath2 = App.Path & "\" & StrFileNm2
Set Cn1 = New ADODB.Connection
Set Cn2 = New ADODB.Connection
Set Rs11 = New ADODB.Recordset
Set Rs12 = New ADODB.Recordset
Set Rs13 = New ADODB.Recordset
Cn1.Open "Provider = Microsoft.Jet.OleDB.4.0 ; Data Source = " & StrPath
Cn2.Open "Provider = Microsoft.Jet.OleDB.4.0 ; Data Source = " & StrPath2
Rs11.Open "select * from " & Text1.Text, Cn1, adOpenDynamic, adLockOptimistic
Rs12.Open "select * from m1g", Cn1, adOpenDynamic, adLockOptimistic
Rs13.Open "select * from m2g", Cn1, adOpenDynamic, adLockOptimistic
For i = 0 To Rs11.RecordCount - 2
Rs11.Move (i)
Text7.Text = Rs11![g_n]
Rs11.Move (i + 1)
Text8.Text = Rs11![g_n]
If Not Text7.Text = Text8.Text Then
Rs12.AddNew
Rs12![m1g] = Text8.Text
Rs12.Update
MsgBox i + 1
End If