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

(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