كيف اربط ال SQL Server بال Visual Basic 6.0

السلام عليكم

تفضل أخي ما تريد .

'

Dim db As ADODB.Connection

Dim rs As ADODB.Recordset

'

Private Sub Form_Load()

'

Set db = New ADODB.Connection

db.CursorLocation = adUseClient

'SQL

db.Open "Provider=SQLOLEDB.1;Persist Security info=False;User ID=sa; initial catalog=YourDataBase;"

'

Set adoPrimaryRS = New ADODB.Recordset

adoPrimaryRS.Open "SELECT * FROM YourTable", db, adOpenStatic, adLockOptimistic

'

MsgBox "تم تحميل قاعدة البيانات بنجاح"

'

' YourDataBase = اسم قاعدة البيانات

' YourTabel = اسم الجدول

'

' تحياتي

End Sub