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

[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]

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