تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب أكواد في visual basic 6
#1
السلام عليكم ورحمة الله وبركاته .
أول مرة اشارك في قسم visual basic 6 ودايما مشاركاتي في قسم visual.net
لو تكرمتو أريد كود ربط قاعدة بيانات أكسس مع الفيجوال بيسيك 6
بالإضافة لأكواد
الحفظ و الحذف و التعديل و أكواد تنقل السجلات .

وجزيتم خيرا ولو كان هناك مثال جاهز ومبسط يكون أفضل وأثابكم الله خير
----------------------
ســبحان الله وبحمده
ســبحان الله العظيم
----------------------
الرد }}}
تم الشكر بواسطة:
#2
كود اضافة
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 
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 فقط لاغير
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy



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


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