اخى اريد ان اعرف كيفية تسجيل فى الفليكس جريد update فى نفس الوقت
بمعنى موجود فى الداتا جريد مجموعة من الداتا ريكورد منها موجود فى الداتا بيس والاخر جديد
مثال
عندى بداخل الداتا بيس
1 محمد 500 مبيعات
2 سيد 300 فراش
فى الاكسس
يوجد الاتى
1 محمد السعيد 500 مبيعات
3 سعيد 150 مبيعات
عايز عند الضغط على الزر
يعرف ان ان 1 محمد يعملة update بــــــ 1 محمد السعيد
ويعرف ان 2 سيد 300 فراش دة جديد
الكود الى انا مستخدمة ولم يعمل هو
Private Sub Command2_Click()
Set dbrs3 = New ADODB.Recordset
dbrs3.Open "SELECT CDR.* FROM CDR", cn, adOpenStatic, adLockPessimistic
For i = 0 To MSFlexGrid1.Rows - 1
If dbrs3("AgencyCd") <> MSFlexGrid1.TextMatrix(i, 0) Then
dbrs3.Update
dbrs3("AgencyCd") = MSFlexGrid1.TextMatrix(i, 0)
dbrs3("ClientCd") = MSFlexGrid1.TextMatrix(i, 1)
dbrs3("PayrollCd") = MSFlexGrid1.TextMatrix(i, 2)
dbrs3("CDR01") = MSFlexGrid1.TextMatrix(i, 3)
dbrs3("CDR02") = MSFlexGrid1.TextMatrix(i, 4)
dbrs3("CDR03") = MSFlexGrid1.TextMatrix(i, 5)
dbrs3("CDR04") = MSFlexGrid1.TextMatrix(i, 6)
dbrs3("CDR05") = MSFlexGrid1.TextMatrix(i, 7)
dbrs3("CDR06") = MSFlexGrid1.TextMatrix(i, 8)
dbrs3("CDR07") = MSFlexGrid1.TextMatrix(i, 9)
dbrs3("CDR08") = MSFlexGrid1.TextMatrix(i, 10)
dbrs3("CDR09") = MSFlexGrid1.TextMatrix(i, 11)
dbrs3("CDR10") = MSFlexGrid1.TextMatrix(i, 12)
dbrs3.Update
dbrs3.MoveNext
Else
dbrs3.AddNew
dbrs3("AgencyCd") = MSFlexGrid1.TextMatrix(i, 0)
dbrs3("ClientCd") = MSFlexGrid1.TextMatrix(i, 1)
dbrs3("PayrollCd") = MSFlexGrid1.TextMatrix(i, 2)
dbrs3("CDR01") = MSFlexGrid1.TextMatrix(i, 3)
dbrs3("CDR02") = MSFlexGrid1.TextMatrix(i, 4)
dbrs3("CDR03") = MSFlexGrid1.TextMatrix(i, 5)
dbrs3("CDR04") = MSFlexGrid1.TextMatrix(i, 6)
dbrs3("CDR05") = MSFlexGrid1.TextMatrix(i, 7)
dbrs3("CDR06") = MSFlexGrid1.TextMatrix(i, 8)
dbrs3("CDR07") = MSFlexGrid1.TextMatrix(i, 9)
dbrs3("CDR08") = MSFlexGrid1.TextMatrix(i, 10)
dbrs3("CDR09") = MSFlexGrid1.TextMatrix(i, 11)
dbrs3("CDR10") = MSFlexGrid1.TextMatrix(i, 12)
dbrs3.Update
dbrs3.MoveNext
End If
Next
dbrs3.Close
MsgBox "Data update", vbInformation, "CCMT"
ارجو المساعدة