سوال در باره کد sql

[ehsanocx]

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

Adodc1.RecordSource = "select * from ChekModatDar "


توی sql معادل این چی میشه؟
ایم میشه؟
Dim db As New Connection
Dim Adodc1 As New Recordset

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

[ehsanocx]

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


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

[ehsanocx]

از طریق این کد می خوام وصل شم به جدولم این پیغام رو میده:
Adodc1.Open "select * from ChekModatDar"
79729

[sehm67]

سلام
برای اتصال به بانک sql باید کانکشن استرینگ برنامه رو تغییر بدید.
بقیه دستورات برای اتصال به جدول و درج و حذف و ... تغییری نمیکنه.
من تو سیستم خودم به بانک sql متصل میشم و تمام عملیات رو انجام می دم اما مشکل من با sql تو سیستم مشتری هست.

جناب ehsanocx (http://barnamenevis.org/member.php?75982-ehsanocx) شما از کدوم نسخه sql استفاده می کنید؟

[ehsanocx]

SQL ورژن 2000 استفاده می کنم

[hrj1981]

سلام،
با توجه به پیغام ، اصلا نرم افزار به بانک اطلاعاتی دسترسی پیدا نمیکنه که بخواد اطلاعات را فراخوانی کنه
این تغییراتو توش اعمال کن ببین درست میشه

provider=msdasql >> Provider=sqloledb
driver={sql server} >> Data Source= (نام سرور)
database=shams >> Initial Catalog=نام دیتابیس

[ehsanocx]

با این تغییرات درست نشد و یک پیغام دیگه میده

[karimi64bit]

سلام از adodc استفاده کن تو قسمت connection string روی گزینه build کلیک کن اطلاعات رو کامل بهش بده اگر test connection جواب داد ok کن و کانکشن استرینگ رو بردار استفاده کن 1
این کد هم اشتباه نیست کم داره


Dim db As New Connection
Dim Adodc1 As New Recordset
Adodc1.Open "select * from ChekModatDar", db, adOpenDynamic, adLockOptimistic


قبل select تو دکمه بنویس db چیه
db="connectionstring" تمام