15-09-12, 12:37 AM
السلام عليكم
مبروك المنتدى الجديد
اريد أن أعمل دمج لقاعدتي بيانات و عندما يقوم بعملية الدمج إذا وجد تكرار في الرمز يقوم بسؤالي ب msgbox
هل تريد الحفظ عليه Crush (Ecraser بالفرنسية) أم تصنع واحد آخر برمز آخر يعني ب addnew او تتجاهل
كتبت هذا الكود لكن لم يفلح
يعطيني نفس المسجبوك يتكرر مرات عديدة مع أنني طلبت من البرنامج حسب ما أفكر فيه ان يسألني عن الذي اريد أن أقوم له ب crush
http://vb4arab.com/vb/attachment.php?att...1347409126
مبروك المنتدى الجديد
اريد أن أعمل دمج لقاعدتي بيانات و عندما يقوم بعملية الدمج إذا وجد تكرار في الرمز يقوم بسؤالي ب msgbox
هل تريد الحفظ عليه Crush (Ecraser بالفرنسية) أم تصنع واحد آخر برمز آخر يعني ب addnew او تتجاهل
كتبت هذا الكود لكن لم يفلح
يعطيني نفس المسجبوك يتكرر مرات عديدة مع أنني طلبت من البرنامج حسب ما أفكر فيه ان يسألني عن الذي اريد أن أقوم له ب crush
PHP كود :
Set RS = Nothing
Set RS = New ADODB.Recordset
RS.Open "Select * From Table1", CN, adOpenDynamic, adLockOptimistic
Set RSS = Nothing
Set RSS = New ADODB.Recordset
RSS.Open "Select * From Table1", CN1, adOpenDynamic, adLockOptimistic
For i = 1 To RS.RecordCount
RSS.Close
RSS.Open "Select * From Table1 where N like '" & RS!N & "'", CN1, adOpenDynamic, adLockOptimistic
If RSS.RecordCount <> 0 Then
Dim iResponse As String
iResponse = MsgBox("Vouler vous écraser " & RS!N, vbYesNoCancel + vbApplicationModal + vbDefaultButton3, "Ligue")
Select Case iResponse
Case vbYes:
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
DoEvents
RSS.Update
RSS.Requery
Case vbNo:
RSS.AddNew
RSS![N] = "RE" & RS![N]
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
DoEvents
RSS.Update
RSS.Requery
Case vbCancel:
' Enter your code here
End Select
Else
RSS.AddNew
RSS![N] = RS![N]
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
DoEvents
RSS.Update
RSS.Requery
End If
DoEvents
Next
http://vb4arab.com/vb/attachment.php?att...1347409126