تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود Ecraser او Crush او remplace
#1
السلام عليكم

مبروك المنتدى الجديد

اريد أن أعمل دمج لقاعدتي بيانات و عندما يقوم بعملية الدمج إذا وجد تكرار في الرمز يقوم بسؤالي ب msgbox

هل تريد الحفظ عليه Crush (Ecraser بالفرنسية) أم تصنع واحد آخر برمز آخر يعني ب addnew او تتجاهل

كتبت هذا الكود لكن لم يفلح
يعطيني نفس المسجبوك يتكرر مرات عديدة مع أنني طلبت من البرنامج حسب ما أفكر فيه ان يسألني عن الذي اريد أن أقوم له ب crush
PHP كود :
Set RS Nothing
Set RS 
= New ADODB.Recordset
RS
.Open "Select * From Table1"CNadOpenDynamicadLockOptimistic
Set RSS 
Nothing
Set RSS 
= New ADODB.Recordset
RSS
.Open "Select * From Table1"CN1adOpenDynamicadLockOptimistic
For 1 To RS.RecordCount
RSS
.Close
RSS
.Open "Select * From Table1 where N like '" RS!"'"CN1adOpenDynamicadLockOptimistic
If RSS.RecordCount <> 0 Then
Dim iResponse 
As String
iResponse 
MsgBox("Vouler vous écraser " RS!NvbYesNoCancel 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
الرد }}}}
تم الشكر بواسطة:
#2
انت ناقص عندك فى الكود ده جملة شرطية الا وهى جملة التحقق من الرمز وده هتستعمله عن طريقة جملة استعلام فى الداتا التانية اللى انت عاوز ترحل ليها البيانات هتعمل استعلام بالرمز لو كان موجود قبل كده يظهرلك مسج تفيده بانه موجود ولو مكنش موجود يا تعمل جملة انسرت على طول ييطلعلك مسج تفيد انه مش موجود .. ده تحليلى على حسب ما فهمت
الرد }}}}
تم الشكر بواسطة:
#3
شكرا .. تم الحل !!! لكن بطريقتي الخاصة
جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم