+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كود Ecraser او Crush او remplace (/showthread.php?tid=4099)
كود Ecraser او Crush او remplace - mamas1 - 15-09-12
السلام عليكم
مبروك المنتدى الجديد
اريد أن أعمل دمج لقاعدتي بيانات و عندما يقوم بعملية الدمج إذا وجد تكرار في الرمز يقوم بسؤالي ب 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?attachmentid=30956&d=1347409126
كود Ecraser او Crush او remplace - اشروفا - 23-09-12
انت ناقص عندك فى الكود ده جملة شرطية الا وهى جملة التحقق من الرمز وده هتستعمله عن طريقة جملة استعلام فى الداتا التانية اللى انت عاوز ترحل ليها البيانات هتعمل استعلام بالرمز لو كان موجود قبل كده يظهرلك مسج تفيده بانه موجود ولو مكنش موجود يا تعمل جملة انسرت على طول ييطلعلك مسج تفيد انه مش موجود .. ده تحليلى على حسب ما فهمت
كود Ecraser او Crush او remplace - mamas1 - 24-09-12
شكرا .. تم الحل !!! لكن بطريقتي الخاصة
جزاك الله خيرا