ارتباط با اکسس

[ATA_TABRIZ]

سلام دوستان
من در vb6 برای ارتباط با اکسس از کدهای
Dim db as database
dim rs as recordset
set db=opdatbase "مسیر فایل"
set rs=db.oprecoedset("کوری مورد نظر را مینوشتم")
بعد rst.فیلد مورد نظر و .... به راحتی هم ذخیره میکردم و اپدیت ,...
از دوستان خواهشمندم برابر کدهای فوق را جهت ارتباط با اکسس در vb2010 در چند سط توضیح دهند
از لطف شما ممنونم

[cjmoon]

Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim cc As New OleDbConnection
Dim a As Integer = 0
dim s as string = "adrese bank"


cc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & s & ";Jet OLEDB:Database Password=;"
ds.Clear()
DataGridView1.DataBindings.Clear()
DataGridView1.ReadOnly = True
da.SelectCommand = New OleDbCommand
da.SelectCommand.Connection = cc
da.SelectCommand.CommandType = CommandType.Text
da.SelectCommand.CommandText = "Select * From name table"

cc.Open()

da.Fill(ds, "name table")

cc.Close()

DataGridView1.DataBindings.Add(New Binding("datasource", ds, "name table"))

[systam]

سلام برای ثبت رکورد
Dim con As OleDbConnection = New OleDbConnection con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\karim.mdb;user id=; password=;"
Dim command As OleDbCommand = New OleDbCommand
command.Connection = con
command.CommandText = "insert into k values (@id ,@name,@family,@code_m)"
command.Parameters.AddWithValue("id", Trim(TextBox1.Text))
command.Parameters.AddWithValue("name", Trim(TextBox2.Text))
command.Parameters.AddWithValue("family", Trim(TextBox3.Text))
command.Parameters.AddWithValue("code_m", Trim(TextBox4.Text))
con.Open()
command.ExecuteNonQuery()
con.Close()

[systam]

برای ویرایش یک رکورد
Dim con As New OleDbConnection con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\karim.mdb;user id=; password=;"
Dim command As New OleDbCommand
command.Connection = con
command.CommandText = "update k set id=@id , name=@name ,family=@family,code_m=@code_m where code_m=@code_m"
command.Parameters.AddWithValue("id", Trim(TextBox1.Text))
command.Parameters.AddWithValue("name", Trim(TextBox2.Text))
command.Parameters.AddWithValue("family", Trim(TextBox3.Text))
command.Parameters.AddWithValue("code_m", Trim(TextBox4.Text))
con.Open()
command.ExecuteNonQuery()
con.Close()

[systam]

و برای حذف یک رکورد
Dim con As New OleDbConnection con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=|datadirectory|\karim.mdb;user id=; password=;"
Dim command As New OleDbCommand
command.Connection = con
command.CommandText = "select count(*) from k where code_m=@code_m"
command.Parameters.AddWithValue("@code_m", Trim(TextBox4.Text))
con.Open()
Dim count As Int16 = command.ExecuteScalar
con.Close()
If count <> 0 Then
Dim com1 As New OleDbCommand
com1.Connection = con
com1.CommandText = "delete * from k where code_m=@code_m"
com1.Parameters.AddWithValue("@code_m", Trim(TextBox4.Text))
con.Open()
com1.ExecuteNonQuery()
con.Close()
End If

[systam]

زمانی که برای کانکشن
provider=microsoft.jet.oledb.4.0 استفاده میکنیم برای jet .oledb.4.0 برای ورژن های 2003 هست
برای ورژن های 2007 و بالا ترن به جای عدد 4.0 باید Microsoft.ACE.OLEDB.12.0 استفاده بشه



موفق باشید
یا علی

[ATA_TABRIZ]

از همه عزيزان متشكرم كه توجه نموده و جواب دادند