خواندن و نوشتن در اکسس

[MDSTmdst]

با سلام خدمت دوستان

من میخام یک رکورد رو از دیتابیس اکسس در یک متغیر بریزم
اما نمیدونم چه جوری؟ البته تا این جاهایی پیش رفتم

چند تا مقاله هم خواندم ولی کمکم نکرد

لطفا اگه میشه کد ها رو توضیح بدید تا برام ملموس بشه /نمی خام حفظ کنم /
لطفا اگه میشه به صورت کامل توضیح بدید
چون من توی دیتابیس ها خیلی گیرم/


لطفا کد های زیر رو توضیح و ادامه دهید/:تشویق:

با تشکر فراوان





Dim strcon As String, strsql As String
Dim ds As DataSet

Dim da As OleDb.OleDbDataAdapter
Dim con As OleDb.OleDbConnection

strcon = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;"
strsql = "Select * from arabicquestion"
con = New OleDb.OleDbConnection(strcon)
con.Open()
ds = New DataSet
da = New OleDb.OleDbDataAdapter(strsql, con)
da.Fill(ds, "arabicquestion")
con .close

لطفا کمک کنید

[mostafabestman]

کسی نیست که کمک کمه.من همین مشکل رو دارم.....

[Mani_rf]

تعجب می کنم که چرا پیدا نکردی. این مطلب در سایت بسیار است.
کد هایی که شما نوشتی کاملا صحیح است اما کاری که شما می خواهید را انجام نمی دهد. در واقع کاری که شما بتوانید نتیجه آن را ببنید را انجام نمی دهد.

برای این کار یک کانکشن و یک Command نیاز دارید.

Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;")
Dim Command As New OleDb.OleDbCommand("Select Name from arabicquestion")

پس از آن کافی است که کانکشن را باز کنید ، Command را اجرا و کانکشن را ببندید.
con.Open()
Dim Result As String = Command.ExecuteScalar
con.Close()

حال شما در متغیر Result مقدار فیلد Name دیتابیس را دارید.
1- کد ها ، کد های خودتان است با اندکی تغییر.
2- برای گرفتن یک مقدار باید برای کد SQL خود شرط بگذارید. در غیر این صورت به جواب مورد نظر نخواهید رسید.
3- با استفاده از این روش فقط یک مقدار از یک فیلد را بدست می آورید. در صورتی که می خواهید یک تیبل از دیتابیس بگیرید باید از Command.ExecuteReader و یا سی Adaptor استفاده کنید. (تحقیق کنید.)