سلام دوستان
دوستان من یک برنامه نوشتم و بانکش access بود حالا این برنامه رو بانکش رو دارم عوض می کنم و بانکش را دارم sql می کنم
حالا به یک مشکلی بر خوردم
من برای ارتباط با جدول از این دستور استفاده می کردم


1
Adodc1.RecordSource = "select * from ChekModatDar "





توی sql معادل این چی میشه؟
ایم میشه؟

Dim db As New Connection
Dim Adodc1 As New Recordset

Adodc1.Open "select * from ChekModatDar", db, adOpenDynamic, adLockOptimistic




Private Sub Form_Load()

db.Open "provider=msdasql;driver={sql server};server=;id=;pwd=;database=shams"
Adodc1.CursorLocation = adUseClient
Adodc1.Open "select * from ChekModatDar", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Adodc1

end sub





از طریق این کد هم به بانکم وصل شدم

از طریق این کد می خوام وصل شم به جدولم این پیغام رو میده:


Adodc1.Open "select * from ChekModatDar"



123.JPG