مشکل در ارتباط با دیتابیس

[r0ot$harp]

سلام بچه خوبید من می خوام یه سوال بپرسم
من می خوام یه دیکشنری بنویسم که فایل متن دیکشنری یک فایل اکسس هست من می خوام ببین چگونه از ویژوال ما به دیتابیس وصل شیم و از داخل آن اطلاعات رو بخونیم مثلا بره داخل table persian و از داخل اون ردیف 10 رو بخونه و بیاره تویه تکست باکس چاپ کنه ممنون می شم جواب بدین .

[CodeMasterX]

اول به منوی Project|References برو و گزینه Microsoft Active Data Objects 2.6 یا هر نسخه دیگه ایش رو به پروژه اضافه کن.

Dim CN As New ADODB.Connection

Dim RS As New ADODB.Recordset

Dim ConnStr As String

Dim dbName As String



dbName = App.Path & "\Database.mdb"

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"



CN.Open ConnStr

RS.Open "SELECT * FROM tbl_Persian"



MsgBox "Command Completed." , vbInformation



RS.Close

CN.Close

ADODB.Connection آبجکت اصلی ارتباط با دیتابیست هست و ADODB.Recordset آبجکت رکوردست هست که در نسخه هایی که با وی بی 6 استفاده میشن در هر زمان تنها یک حدول رو می تونه در خودش بازگذاری بکنه.توضیحات بیشتر تو سایت هستند.

[shiva_mcsd]

با سلام من نمونه برمامه رو دارم میتونم براتون ایمیل کنم یا آپلود کنم اگر مشکلتون حل نشده بگین بفرستم باراتون

[benighted.boy]

واسه اتصال به دیتابیس هزارو یک را هست.
می تونی از کنترلهای مختلف استفاده کنی یا مثل نمونه دوستمون در بالا با استفاده از کد یا تعریف یک class این کارو بکنی که دیگه بستگی به کاره خودت داره و برنامت
اما من استفاده از کنترل adodcرو بیشتر میپسندم و همینو پیشنهاد میکنم
راها استفادشم اینه که کنترل رو رو فرمت اد کنی بعد با استفده از wizard یا کد نویسی به فرمت وصل کنی
راه wizard که آسونه نیاز به توضیح نداره .اما واسه کد نویسه این کداره تو form_loadchبزار

 Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databasename.mdb"

Adodc.CommandType = adCmdText

Adodc.RecordSource = "select * from bzmash"

Adodc.Refresh

حالا واسه اینکه اطلاعات از database تو textboxبریزه از کد زیر استفاده کن

textbox.Text = Adodc1.Recordset ! fildname

واسه پر کردنم بر عکسش عمل کن

Adodc1.Recordset ! fildname = textbox.text

اگه مشکلت حل نشد یا چیزی غیر از این خواستی خبر کن
موفق باشی