[كاظم هاشم البهادلي]

(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