الربط بالكود

السلام عليكم

تفضل أخي كود ربط قاعدة البيانات SQL Server 97.

'

في قسم التصريحات العامة .

Dim db As ADODB.Connection

Dim adoPrimaryRS as ADODB.RecordSet

'

Private Sub Form_Load()

'

Call ConnectDB

'

End Sub

'

Sub ConnectDB()

'

Dim db As Connection

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=MSDASQL;dsn=MQIS;uid=;pwd=sa;database=YouDataBase;"

'

Set adoPrimaryRS = New Recordset

adoPrimaryRS.Open "select * from YourTable", db, adOpenStatic, adLockOptimistic

'

End Sub

'

وعلى إعتبار YourDataBase هي قاعدة البيانات التي تريد الإرتباط بها .

و YourTable هو الجدول .

تحياتي

شكرا لكم علي هذا الكود وسوف اجربه اليوم باذن الله الف شكر لك

أخي العزيز ما بدها كل هالشي

إذا كان قصدك تطبيق استعلام sql فالمسئلة محلولة

data1.recordsource="sql"

data1.refresh