دیتا بیس و ذخیره اطلاعات

سلام
یه آموزش کامل برای کار در دیتا بیس می خوام(دیتا بیس اکسس برای Vb.net)-پی دی اف باشه بهتره
و چطوری می تونم آیتم هایی که تو لیست باکسم هست را زخیره کنم؟؟
ممنون

کمکککککککککککک:19:
لطفا جواب بدین بد جور احتیاج به کمک دارم:19::19::19::19:
ممنون:41:

گزینه اول در کل شرمنده ام, اما اگر مشکلت ریزتر مطرح کنی شاید بتونم کمکی ......

سوال دومت :

Imports

System.IO

Dim

lststream As New FileStream("C:\a.txt", FileMode.Create, FileAccess.Write)
Dim lstwriter As New StreamWriter(lststream)
Try

For i As Integer = 0 To ListBox1.Items.Count - 1
lstwriter.WriteLine(ListBox1.Items.Item(i))
Next i
lstwriter.Close()
Catch ex As IOException
MsgBox(ex.Message)
End Try

ممنون از حوابتون
1-اون موقع چطور می شه دوباره اینا را باز خوانی کرد؟؟(یعنی دوباره تمام این آیتم ها برگرده)
2-چطور می تونم یکی از گزینه های لیست باکس را انتخاب کرد و با زدن یه دگمه اونا پاک کرد؟
3-من می خوام مثل این که تو یه لیست باکس یه آیتم را ادد می کنم تو دیتابیس ام هم یه آیتم تو ستون اول ادد کنم
4-می شه یه جوری این کارا کرد که این آیتم ها که می ره تو تکست با یه رمز خاصی بره که هر کس نتونه به راحتی توش دست کاری کنه؟؟
فقط لطفا زود جواب بدین
ممنون

کد:

---

http://rapidshare.com/files/48465810/15-16.rar.html

---

این PDF فصل 15و16 از یه PDF آموزشی #C که در مورد DataBase
کداش #C ولی خیلی سادس

اینجارو ببین:

کد:

---

http://forum.p30world.com/showthread.php?t=127779&highlight=vb.net+sql

---

ممنون تصمیم گرفتم اون سوال های دیتا بیس را به صورت جزئی بپرسم
هنوز این دو تا سوال را دارم ممنون می شم جواب بدید

نقل قول:

---

نوشته شده توسط farshad_momtaz [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

1-اون موقع چطور می شه دوباره اینا را باز خوانی کرد؟؟(یعنی دوباره تمام این آیتم ها برگرده)
2-چطور می تونم یکی از گزینه های لیست باکس را انتخاب کرد و با زدن یه دگمه اونا پاک کرد؟

---

فرشاد

عکس هم گزاشتم که بهتر معلوم باشه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من میخوام اون بالا تو جدول 4 تا ستون باشه که با دگمه وارد کردن هر چی که تو تکست باکس ها هست بره توشون یعنی نوشته یا عداد توی تکست باکس 1 توی ستون یک و همین طور بره جلو

و تو اون کامبو باکس1 هم عدد هر ردیفی باشه که با زدن دگمه ادیت تمام اطلاعاتش بیاد توی اون تکست باکس ها و بشه ادیتشون کرد

و تو اون کامبو باکس 2 هم عدد هر ردیفی باشه که با زدن دگمه پاک کردن اطلاعاتش پاک شه

و راستی یادم رفته بود یه تکست باکم می خام که کنارش یه دگمه باشه که با زدن اون عدد یا نوشته ی توی تکست باکس را سرچ کنه(این تو اون عکسه نیست)
ممنون
فرشاد

نمی دونم چرا عکسش نیومد به هر حال این لینک عکس که اگه باز نشد

کد:

---

http://www.iranmatrix.net/images/769043form.JPG

---

نقل قول:

---

کد:

---

http://www.iranmatrix.net/images/769043form.JPG

---

---

ممنون از همگی منتظر جوابتون هستمم

نقل قول:

---

1-اون موقع چطور می شه دوباره اینا را باز خوانی کرد؟؟(یعنی دوباره تمام این آیتم ها برگرده)

---

کد:

---


Try
Dim stream_reader As New IO.StreamReader("Path")
Dim line As String
line = stream_reader.ReadLine()
Do While Not (line Is Nothing)
line = line.Trim()
If line.Length > 0 Then ListBox1.Items.Add(line)
line = stream_reader.ReadLine()
Loop
stream_reader.Close()
Catch exc As Exception
MsgBox(exc.Message)
End Try

---

نقل قول:

---

2-چطور می تونم یکی از گزینه های لیست باکس را انتخاب کرد و با زدن یه دگمه اونا پاک کرد؟

---

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

کد:

---


Dim myindex As Integer
myindex = ListBox1.SelectedIndex
ListBox1.Items.RemoveAt(myindex)

---

سوال اخرو هم فعلا وقت ندارم ولی مثالی اماده میکنم

ممنون از جوابتون
اون کد اولی که آیتم های توی لیست باکس را سیو می کرد کار نمی کنهه!!!!
می شه لطفا چواب سواتلم درباره دیتا بیس هم لطفا بدید
ممنونه

عرضم به حضور انور شما :

اون کد واسه vb.net 2003 , من تست کردم درست بود.

سوال دومت :

نقل قول:

---

من میخوام اون بالا تو جدول 4 تا ستون باشه که با دگمه وارد کردن هر چی که تو تکست باکس ها هست بره توشون یعنی نوشته یا عداد توی تکست باکس 1 توی ستون یک و همین طور بره جلو

---

کلا برای درج یک رکورد در جدول :

کد:

---


Dim mydataadapter As new .....
Dim mydataset As new dataset
mydataadapter.fill(mydataset, "tablename")
Dim maytable As datatable
mytable=mydataset.tables("tablename")
Dim mydatarow As datarow
mydatarow=mytable.newrow()
mydatarow(عنوان ستون1)=******
mydatarow("عنوان ستون 2")=*******
عنوان ستون 3*******
عنوان ستون 4********
mytable.rows.add(mydatarow)
mydataadapter.Update(mydataset, "tablename")

---

لیست کمبوباکسها مساوی با تعداد رکوردهاست, برای بدست آوردن تعداد رکود :

کد:

---


Dim mycommand As .............
mycommand=new taypecommand (select****  from .............
myreccount=mycommand.Excutescalar()

---

برای حذف یک رکورد

کد:

---


Dim mydatarow As Datarow
mydatarow=yourdatatable.rows.Find(شماره رکورد)
mydatarow.delete
mydataadapter.update(mydataset,yourtablename)

---

برای جستجو قبلا توی همین انجمن سوال مطرح شده جستجو کن

در ضمن کلیات بالا شاید چندان دقیق نباشه, من ذهنی نوشتم

مي شه لظفا اينا تو يه فايل سورس درست كنيد و بزاريد چون من بد جور مشكل باش پيدا كردم
اگه اين لطف را بكنين ممنون مي شم