منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب أكواد في visual basic 6 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب أكواد في visual basic 6 (/showthread.php?tid=8987)

طلب أكواد في visual basic 6 - smiley - 22-05-13

السلام عليكم ورحمة الله وبركاته .
أول مرة اشارك في قسم visual basic 6 ودايما مشاركاتي في قسم visual.net
لو تكرمتو أريد كود ربط قاعدة بيانات أكسس مع الفيجوال بيسيك 6
بالإضافة لأكواد
الحفظ و الحذف و التعديل و أكواد تنقل السجلات .

وجزيتم خيرا ولو كان هناك مثال جاهز ومبسط يكون أفضل وأثابكم الله خير

طلب أكواد في visual basic 6 - the viper - 22-05-13

كود اضافة
PHP كود :
On Error Resume Next
Adodc1.Recordset.AddNew 

كود الحفظ

PHP كود :
Adodc1.Recordset.Update
MsgBox "تم حفظ البيانات بنجاح", vbInformation, "حفظ" 

كود الحذف

PHP كود :
On Error Resume Next
   
   Dim m
   
   m = (MsgBox("هل تريد حذف الموظف", vbOKCancel + vbExclamation, "حذف السجل"))
        If m = vbOK Then
        Adodc1.Recordset.Delete
        Adodc1.Recordset.MoveNext
            MsgBox "تم الحذف"
        Else
  MsgBox "تم الغاء العملية", vbInformation, "الغاء"
End If
      
        If Adodc1.Recordset.EOF Then
             Adodc1.Recordset.MoveLast
            MsgBox "السجل الاخير"
        End If
         If Adodc1.Recordset.BOF Then
             Adodc1.Recordset.Update
             
            MsgBox "لايوجد سجلات"
        End If 
كود انتقال للسجل التالي

PHP كود :
On Error Resume Next
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If 

انتقال للسجل السابق

PHP كود :
On Error Resume Next
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If 

انتقال للسجل الاول مباشره

PHP كود :
On Error Resume Next
Adodc1.Recordset.MoveFirst 

السجل الاخير

PHP كود :
On Error Resume Next
Adodc1.Recordset.MoveLast 

كود التعديل
PHP كود :
On Error Resume Next
Adodc1.Recordset.Save
MsgBox "تم عملية التعديل بنجاح", vbInformation, "تعديل" 

اخي الكريم هذا كلهم بستخدام اداة Adodc اذا كنت تستخدم اداة Data1 كل ماعليك تغيير اداة Adodc الى Data1 فقط لاغير