تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سوال عن الاداة Adodc
#1
مساء الخير
بس سوال عله الاداة Adodcالي نستخدمه في الفيجوال للربط مع الاكسس هل تسخدم نفس اكواد ال data control ؟؟؟؟ياريت لو احد يفيدني وجزاه الله خير ...
الرد }}}
تم الشكر بواسطة:
#2
(27-09-14, 12:16 AM)hadeel كتب : مساء الخير
بس سوال عله الاداة Adodcالي نستخدمه في الفيجوال للربط مع الاكسس هل تسخدم نفس اكواد ال data control ؟؟؟؟ياريت لو احد يفيدني وجزاه الله خير ...

اهلا وسهلا :
بالنسبة الى سؤالك حول الاداة adodc
الاكواد لا تختلف كثيرا عن الاداة data  ولكل اداة لها ميزاتها الخاصة بها .. ولكن هناك اختلاف في الربط وسوف اشرحه لك مع الكود :

الكود :::
Private Sub Form_Load()


   Dim sConnect As String
   Dim FileSource As String
    FileSource = App.Path & "\db1.accdb;Persist Security Info=False"
   sConnect = "Provider=Microsoft.Ace.OLEDB.12.0;" & "Data Source= " & _
       FileSource & ""
  Adodc1.ConnectionString = sConnect
   Adodc1.RecordSource = "emp"
   Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Text10_Change
Label16.Caption = " عدد الدارسين الكلي :  " & Adodc1.Recordset.RecordCount


End Sub
حيث ان قاعدة البيانات هي db1
والجدول هو : emp
وطريقة الاتصال هي بقاعدة بيانات اكسس 2013 
الرد }}}
تم الشكر بواسطة:
#3
Private Sub but1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew

End Sub

Private Sub but2_Click()
On Error Resume Next
Adodc1.Recordset.Update
MsgBox "تم حفظ البيانات بنجاح", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "حفظ "
Adodc1.Refresh
End Sub
كود الاضافة وكود الحفظ
الرد }}}
تم الشكر بواسطة:
#4
باقي الاكواد
Private Sub but4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
Call MsgBox("تم حذف الاسم المحدد مع كافة بياناته", vbQuestion Or vbSystemModal Or vbMsgBoxRight Or vbMsgBoxRtlReading, "حذف اسم")

End Sub

Private Sub but5_Click()
On Error Resume Next 'لتجاوز الأخطاء
Adodc1.Recordset.MoveNext 'نأمر الريكورد ست بالتحرك للسجل التالي
If Adodc1.Recordset.EOF Then ' اذا وصل للنهاية
Adodc1.Recordset.MoveLast ' نأمره بالتحرك عكسياً
End If
End Sub

Private Sub but6_Click()
On Error Resume Next 'لتجاوز الأخطاء
Adodc1.Recordset.MovePrevious 'نأمر الريكورد ست بالتحرك للسجل السابق
If Adodc1.Recordset.BOF Then ' اذا وصل للبداية
Adodc1.Recordset.MoveNext ' نأمره بالتحرك عكسياً
End If
End Sub

Private Sub but7_Click()
On Error Resume Next
Adodc1.Recordset.MoveFirst
End Sub

Private Sub but8_Click()
On Error Resume Next
Adodc1.Recordset.MoveLast
End Sub
الرد }}}
تم الشكر بواسطة:
#5
(27-09-14, 12:16 AM)hadeel كتب : مساء الخير
بس سوال عله الاداة Adodcالي نستخدمه في الفيجوال للربط مع الاكسس هل تسخدم نفس اكواد ال data control ؟؟؟؟ياريت لو احد يفيدني وجزاه الله خير ...

طريقة ربط الاداة adodc  مع اكسس 2003

Dim sConnect As String
   Dim FileSource As String
   FileSource = App.Path & "\db1.mdb;Persist Security Info=False"
   sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= " & FileSource & ""
  Adodc1.ConnectionString = sConnect
   Adodc1.RecordSource = "emp2"
   Adodc1.Refresh
الرد }}}
تم الشكر بواسطة:
#6
(27-09-14, 01:26 AM)كاظم هاشم البهادلي كتب :
(27-09-14, 12:16 AM)hadeel كتب : مساء الخير
بس سوال عله الاداة Adodcالي نستخدمه في الفيجوال للربط مع الاكسس هل تسخدم نفس اكواد ال data control ؟؟؟؟ياريت لو احد يفيدني وجزاه الله خير ...

طريقة ربط الاداة adodc  مع اكسس 2003

Dim sConnect As String
   Dim FileSource As String
   FileSource = App.Path & "\db1.mdb;Persist Security Info=False"
   sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= " & FileSource & ""
  Adodc1.ConnectionString = sConnect
   Adodc1.RecordSource = "emp2"
   Adodc1.Refresh
الرد }}}
تم الشكر بواسطة:
#7
شكراااا جزيلا بس انا استعملت الاداه من غير ربط بالكوود يعني استخدمت ربط عادي لو لازم اربط بالكود؟؟؟؟؟؟؟ لان ظهرت عندي اخطاء اثناء التشغيل واستعملت نفس الاكواد الي نستعمله مع الداتا كنترول ....ارجو الرد اذا ممكن
الرد }}}
تم الشكر بواسطة:
#8
اخي كتبت لك كل الاكواد ... بقي فقط كود البحث واكواد الاستعلام
ويجب عليك ان تربط الاداة من خلال الاكواد لتجنب الاخطاء ... ولكي تعمل على اي جهاز غير جهازك
تحياتي
الرد }}}
تم الشكر بواسطة:
#9
(27-09-14, 04:57 PM)hadeel كتب : شكراااا جزيلا بس انا استعملت الاداه من غير ربط بالكوود يعني استخدمت ربط عادي لو لازم اربط بالكود؟؟؟؟؟؟؟ لان ظهرت عندي اخطاء اثناء التشغيل واستعملت نفس الاكواد الي نستعمله مع الداتا كنترول ....ارجو الرد اذا ممكن

(27-09-14, 08:15 PM)كاظم هاشم البهادلي كتب : اخي كتبت لك كل الاكواد ... بقي فقط كود البحث واكواد الاستعلام
ويجب عليك ان تربط الاداة من خلال الاكواد لتجنب الاخطاء ... ولكي تعمل على اي جهاز غير جهازك
تحياتي

السلام عليكم

ساشرح لك عملية الربط بدون اكواد وارجو ان اكون موفقا في الشرح
اولا وبعد اضافة الاداة adodc1  الى مشروعك حدد الاداة ثم كلك ايمن واختر adodc properties
سيظهر لك بعدها مربع الحوار
اختر منه
use connection string
ثم  اضغط على زر Build
سيظهر لك مربع حوار اختر منه
 
اختر منه
Microsoft jet 4.0 OLE DB Provider
ثم NEXT
ثم حدد قاعدة البيانات التي تريدها
ثم تمسح مسار قاعدة البانات بالكامل ماعدا اسم قاعدة البيانات
db1.mdb هكذا حيث db1 هو اسم قاعدة البيانات وامتدادها
مع ملاحظة مهمة ان تكون قاعدة البيانات في نفس المجلد الذي فيه مشروعك
وبعدها
Test Connecttion
لاختبار الاتصال بقاعدة البيانات
فاذا ظهرت لك الرسالة التالية فان عملية الاتصال ناجحة
Test connection succeded.
الى هنا تم الاتصال بقاعدة البيانات ثم تضغط ok
بقي ان نتصل بجدول داخل قاعدة البيانات وهي كلاتي
بعد ان ضغطنا ok سيتم نقلك الى مربع الحوار الاول اي بعد (كلك ايمن ثم adodc properties)
نختار هذه المره

RecordSours
ومن خيار Command Type
نختار من القائمة المنسدلة الخيار
2-adCmdTable
ومن القائمة المنسدلة التي تحتها نختار
الجدول المطلوب
ثم ok
الى هنا تم الاتصال بقاعدة البيانات والجدول المطلوب
ويوجد في المرفق شرح  لما طلبت
ارجو ان اكون قد وفقت


الملفات المرفقة
.docx   ربط الاداة adcodc1 بقاعدة البيانات.docx (الحجم : 171.6 ك ب / التحميلات : 117)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
تم الشكر بواسطة:



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


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