پایگاه داده اکسس

[masih_enter]

سلام دوستان

اگر ممکنه یه اموزش ساده از این کار هایی که میگم به من معرفی کنید که دیگه نای جستجو تو فروم و گوکل رو ندارم :عصبانی++:


add
update
delete
search

این چند تا کار رو اگه یه سورس ساده به من معرفی کنید تا عملیش رو ببینم ممنون میشم .
من با بیسیک شش برنامم رو کامل کردم حالا میخوام ورژن جدیدش رو با 2008 بنویسم ولی از همون اول که واردش شدم همه چی فضایی بود !!!

[viper2009]

قسمت DataBase را نگاه کن
http://www.homeandlearn.co.uk/NET/vbNet.html

[viper2009]

اضافه کردن
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow
dsNewRow = ds.Tables("AddressBook").NewRow()
dsNewRow.Item("FirstName") = txtFirstName.Text
dsNewRow.Item("Surname") = txtSurname.Text
ds.Tables("AddressBook").Rows.Add(dsNewRow)
da.Update(ds, "AddressBook")
MsgBox("New Record added to the Database")

حذف کردن

Dim cb As New OleDb.OleDbCommandBuilder(da)
ds.Tables("AddressBook").Rows(inc).Delete()
MaxRows = MaxRows - 1
inc = 0
NavigateRecords()
da.Update(ds, "AddressBook")

ویرایش کردن

Dim cb As New OleDb.OleDbCommandBuilder(da)
ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text
ds.Tables("AddressBook").Rows(inc).Item(2) = txtSurname.Text
da.Update(ds, "AddressBook")
MsgBox("Data updated")

[saadi2]

بفرمایید یه نمونه خیلی ساده براتون نوشتم