طلب مساعدة:ارغب بمعرفة كل مايتعلق بـ المكتبة microsoft DAO3.6 object library

[المبرمج]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
ارغب بمعرفة كل مايتعلق بـ المكتبة microsoft DAO3.6 object library
مع الكواد والشرح

 

[ibrahimlita]

سأعطيك عزيزي استخدام ADO و DAO في أوامر بسيطة مع أني أحبذ وأفضل ADO
من أخيك ابراهيم الليبي .

' هنا ما يوضع بالمودل
'Ado variables
Dim adocon As Connection
Dim rsado As Recordset
'Dao variables
Dim daodb As DAO.Database
Dim daors As DAO.Recordset


'هنا ما يوضع بالفورم
Private Sub Form_Load()
'Ado Codeing
Set adocon = New Connection
adocon.CursorLocation = adUseClient
adocon.Open "Provider=Microsoft.jet.OLeDB.3.51;Data Source=" & App.Path & "\adodao.mdb;"
Set rsado = New Recordset
rsadpen "adodao", adocon, adOpenDynamic, adLockOptimistic
If rsado.RecordCount > 0 Then
rsado.MoveLast
rsado.MoveFirst
Text1.Text = rsado.Fields(0)
End If



'Dao Codeing
Set daodb = OpenDatabase(App.Path & "\adodao.mdb")
Set daors = daodb.OpenRecordset("adodao", 2)
If daors.RecordCount > 0 Then
daors.MoveLast
daors.MoveFirst
Text2.Text = daors.Fields(0)
End If
End Sub

نسأل الله العافية لنا ولعوائلنا والثبات على دين الله واتباع ماجاء به محمد صلى الله عليه وسلم

 

[spylinger]

thanks much my friend (party)