التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
كود Ecraser او Crush او remplace - بواسطة mamas1 - 15-09-12, 12:37 AM
كود Ecraser او Crush او remplace - بواسطة اشروفا - 23-09-12, 09:06 AM
كود Ecraser او Crush او remplace - بواسطة mamas1 - 24-09-12, 04:08 PM

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


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