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

[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
اگه مشکلت حل نشد یا چیزی غیر از این خواستی خبر کن :چشمک:
موفق باشی