الأتصال مع الADO

مغلق

بدأه mometo في 10 يونيو 2006 · 5 رد · 668 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#110 يونيو 2006 في 20:58 صاحب الموضوع

الأخوة و الاخوات

السلام عليكم

انا وجدت هذا الكود في المنتدى لعمل أتصال مع قاعدة بيانات أكسيس من خلال الـADO هذا هو الكود

If db.State = adStateOpen Then db.Close
st = "provider = microsoft.jet.OLEDB.4.0;"
st = st & "data source =" & App.Path & "\ado.mdb"
db.ConnectionString = st
db.CursorLocation = adUseClient
db.Open

الكود جميل ولكن انا مش فاهمة كويس ؟ ... وكمان قاعدة البيانات بتاعتي محمية بكلمة سر هي "admin"

إزاى أفتح قاعدة البيانات المحمية بكلمة السر السابقة من خلال هذا الكود الجميل

أرجو تعديل الكود وإضافةشرح بسيط علشان أخوكم مبتدأ في الـVB

وسؤالي الثاني هو عن كود تعديل السجل في الـADO

فالمعروف عن هذا الكود في الـDAO انه يكون بهذا الشكل كمثال

   rs.Edit
   rs![st_no] = Val(Txt1.Text)
   rs![st_name] = Txt2.Text
   rs![address] = Txt3.Text
   rs![b_date] = Txt4.Text
   rs![phone] = Txt5.Text
   rs.Update

فكيف يكون هذا الكود في الـADO

وشكرا

تم تعديل هذه المشاركة بواسطة mometo في 10 يونيو 2006 في 21:29

#210 يونيو 2006 في 23:19

عندى ليك طريقه جميله وهى أنك بتعمل Adodc1 على الفورم وبعدين تروح لقائمه properties بعد الضغط على ال Adodc1 وتختار connection string وبعدين تضغط عليه ثم تقوم بالضغط على Build وبعدين تختار provider = microsoft.jet.OLEDB.4.0 وبعدين تحدد مكان قاعده البيانات ثم تقو بالضغط على test connection سيظهر لك رساله لو كانت connection succeded أضغط على Apply سيظهر لك قوائم منها ال Record source ثم تختار acmdTabel ثم تختار الجدول او الاستعلام المطلوب ربطه ثم تضغط على ok وللموضوع بقيه ولكن بعد الرد....