+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] سوال عن الاداة Adodc (/showthread.php?tid=3905)
سوال عن الاداة Adodc - hadeel - 27-09-14
مساء الخير
بس سوال عله الاداة Adodcالي نستخدمه في الفيجوال للربط مع الاكسس هل تسخدم نفس اكواد ال data control ؟؟؟؟ياريت لو احد يفيدني وجزاه الله خير ...
RE: سوال عن الاداة Adodc - كاظم هاشم البهادلي - 27-09-14
(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
RE: سوال عن الاداة Adodc - كاظم هاشم البهادلي - 27-09-14
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
كود الاضافة وكود الحفظ
RE: سوال عن الاداة Adodc - كاظم هاشم البهادلي - 27-09-14
باقي الاكواد
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
RE: سوال عن الاداة Adodc - كاظم هاشم البهادلي - 27-09-14
(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
RE: سوال عن الاداة Adodc - hadeel - 27-09-14
(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
RE: سوال عن الاداة Adodc - hadeel - 27-09-14
شكراااا جزيلا بس انا استعملت الاداه من غير ربط بالكوود يعني استخدمت ربط عادي لو لازم اربط بالكود؟؟؟؟؟؟؟ لان ظهرت عندي اخطاء اثناء التشغيل واستعملت نفس الاكواد الي نستعمله مع الداتا كنترول ....ارجو الرد اذا ممكن
RE: سوال عن الاداة Adodc - كاظم هاشم البهادلي - 27-09-14
اخي كتبت لك كل الاكواد ... بقي فقط كود البحث واكواد الاستعلام
ويجب عليك ان تربط الاداة من خلال الاكواد لتجنب الاخطاء ... ولكي تعمل على اي جهاز غير جهازك
تحياتي
RE: سوال عن الاداة Adodc - السيد الغالي - 27-09-14
(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
الى هنا تم الاتصال بقاعدة البيانات والجدول المطلوب
ويوجد في المرفق شرح لما طلبت
ارجو ان اكون قد وفقت