ذخیره اطلاعات در بانک اکسس؟

[AlgorithmX]

سلام!
با عرض پوزش از پرسدن سوال تکراری!!:خجالت: - چند سوال کوچیک از خدمتتون داشتم که با اجازه عرض میکنم:

1. چطوری میشه از طریق سورس به بانک اکسس وصل شد و اطلاعات یک تکس باکس رو درون اون ریخت؟
2. آیا اتصال از طیق سورس بهتره و اطمینانی تره یا از طریق Wizardها؟
3. چطوری مشه اطلاعات بانک رو در یک تکس یا کمبو نمایش و ویرایش کرد؟
4. چطوری میشه بین اطلاعات جابه جا شد و یا جستجو کرد؟(از طریق سورس)
5. چطوری میشه اطلاعات بانک رو حذف کرد؟
6. پررو ام نه؟؟؟:لبخند:

چون سوال هام زیاد بود اگر میشه یکی یکی جواب بدید اگر هم یک پروژه باشه که دیگه ممنون میشم!


این داستان ادامه دارد...!

[vahid1]

ارتباط با بانك اطلاعاتي توسط ADO.Net انجام مي‌شود چه با استفاده از كدنويسي مستقيم و چه با استفاده از wizardها و كنترل‌ها. پس براي همه‌ي سوال‌ها بايد ADO.Net را ياد بگيريد. اما چند سرنخ
براي ارتباط با mdb هاي access بايد از رابط oledb استفاده كنيد. Object هاي پر استفاده شامل oledbConnection براي برقراري ارتباط با بانك اطلاعاتي، OledbCommand و OledbCommandBuilder براي اجراي دستورات SQL و OledbDataAdapter براي تبادل اطلاعات و صد البته به ساير Object ها مانند Dataset و Dataview و Binding manager و... هم براي خودكار كردن خواندن و نوشتن اطلاعات با استفاده از كنترل‌هائي مانند TextBox و يا GridView نياز داريد. حتماً خيلي خوب متوجه شده‌ايد كه براي ادامه بايد ado.net را خوانده و ياد بگيريد. به هرحال مثالي را كه ضميمه كرده‌ام مطالعه كنيد. بطور حتم كمك‌تان خواهد كرد.

اما كدام راه حل بهتراست؟ اگر با مباحثي مانند طراحي و برنامه نويسي چندلايه آشنا باشيد حتماً سراغ روش كد نويسي خواهد رفت و از مزاياي آن بهره مند مي‌شويد.

جواب بقيه سوال‌ها را در مثال ضميمه پيدا مي‌كنيد. 64749
اين مثال مربوط به سايت codeguru است مي‌توانيد اصل مطلب را در آدرس زير ببينيد.
http://www.codeguru.com/vb/gen/vb_database/adonet/article.php/c15031/

[AlgorithmX]

این سورس رو کسی بهم داد آیا شما هم با این ها کار میکنین؟

نام بانک : VS_Bank.mdb
نام جدول : VS_Table
** بانک هم در پوشه دیباگ هست

کد بخش عمومی


Public s AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\VS_Bank.mdb"
Public da As OleDb.OleDbDataAdapter
Public ds AsNew DataSet
Public co AsNew OleDb.OleDbConnection(s)
Public mTable AsNew DataTable


کد زمان اجرا:


da = New OleDb.OleDbDataAdapter("select * from VS_Table order by nam", co)
ds.Clear()
da.Fill(ds, "VS_Table")
mTable = ds.Tables("VS_Table")


کد دکمه ثبت:


Dim c AsNew OleDb.OleDbCommand
c.CommandText = "insert into VS_Table(Code,nam,Family,Address,Tel)values('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "')"
c.Connection = co
co.Open()
c.ExecuteNonQuery()
co.Close()
da = New OleDb.OleDbDataAdapter("select * from VS_Table order by Nam", Start_Form.co)
ds.Clear()
da.Fill(ds, "VS_Table")


کد دکمه پیمایش اول :


Me.BindingContext(mTable).Position = mTable.Rows.Count


کد دکمه پیمایش آخر:


Me.BindingContext(mTable).Position = 0


کد دکمه پیمایش قبلی :


Me.BindingContext(mTable).Position += 1


کد دکمه پیمایش بعدی:


Me.BindingContext(mTable).Position -= 1


کد دکمه حذف:


Dim c AsNew OleDb.OleDbCommand
Dim pos AsInteger = Me.DataGridView1.CurrentCell.RowIndex
Dim del_Code AsInteger = mTable.Rows(pos).Item(0)
c.CommandText = "delete * from VS_Table where Code=" & del_Code & ""
c.Connection = co
co.Open()
c.ExecuteNonQuery()
co.Close()
da = New OleDb.OleDbDataAdapter("select * from VS_Table order by Nam", co)
ds.Clear()
da.Fill(ds, "VS_Table")




این ها خیلی سخت و پیچیدس دوستام آسون ترشو شما بلد نیستین؟؟:افسرده:

[AlgorithmX]

و این که چطوری عکس رو تو بانک اکسس جا بدمو نمیدونم!!

[AlgorithmX]

به نظر من اگر از طریق ویزاردها کارکنیم آسون تره نه؟؟؟(اگر صفحه کلید سیستمت رو دوست داری و حوصله زیاد تایپ کردن رو نداری)!!!
البته با سورس دست آدم بازتره. اما من تازه به VS رو آوردم و قبلا با VB کار میکردم و اصول ارتباطات رو در VB.net بلد نیستم!!!

[AlgorithmX]

سلام! دوستان اگه میشه کمک کنید این سورس های بالا (اتصال به بانک) کار نمیکنه!!
شما سورسی ندارید؟؟



مثل این که من شدم صاحب تایپیک!!! بازم دم آقا وحید گرم!!!

[AlgorithmX]

کسی نیست جواب بده ؟!