سنبدأ بالأهم , وهو طريقة ربط فيجوال بيسك مع قواعد البيانات المختلفة ,


و لتكون الفائدة أعم سأشرح اسهل الطرق للربط مع Access و MSSQL .


1- الربط مع Access .


انشيء مشروع جديد و اضف موديول وضع فيه مايلي


Dim db As DAO.Database



كود:
Public Sub OpenDB()
Set db = OpenDatabase(App.Path & "\" & "اسم_قاعدة_البيانات.mdb", 0, 0)
End Sub


لفتح جدول اسمه X مثلاً في قاعدة البيانات DB عليك عمل التالي :

كود:
call OpenDB
dim Rs as dao.recordSet
set rs = db.openrecordset("select * from x")
do while rs.eof = false
msgbox rs.fields!اسم العمود
rs.movenext
loop