[سؤال] ارجو المساعده في ربط قاعدة البيانات بـــ ado

كود :

اعرف عن الكائنات للربط ومنها :

1-connectionstring = جملة الاتصال بقاعدة البيانات

2-oledbconnection = كائن امر الاتصال

3-dataset = قاعدة بيانات مؤقتة

4-Query syntax =جملة استعلام

5-oledbdataadapter = مكيف بيانات

6-oledbcommandbuilder = باني الاوامر

هذه اهم الكائنات للربط بقاعدة البيانات واجراء اوامر الاضافة والتعديل والحذف.

الامثلة

1-dim str as string="provider=microsoft.ace.oledb.12.0;data source=db.accdb"

2-dim con as new oledbconnection(str)

3-dim ds as new dataset

4-dim sql as string="select * from tb"

5-dim da as new oledbdataadapter(sql,con)

6-dim cmb as new oledbcommandbuilder(da)

للربط بالادوات

textbox1.databindings.add("text",ds,"tb.tname")

كود :

Imports System.Data.OleDb

Public Class Form1

    'جملة اتصال

    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"

    'كائن امر اتصال

    Dim con As New OleDbConnection(str)

    Dim m As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'للاضافة نحتاج جملة اتصال و كائن امر اتصال

        'ثم التالي يكفي للاضافة

        Dim insert As New OleDbCommand("insert into tb(tname) values(@tname)", con)

        insert.Parameters.AddWithValue("@tname", InputBox("ادخل اسمك", "اكتب اسم لحفظه", "اسم رقم: " & m))

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        insert.ExecuteNonQuery()

        gt()

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

        m += 1

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

        gt()

    End Sub

    Sub gt()

        ListBox1.Items.Clear()

        Dim fildg As New OleDbCommand("select * from tb", con)

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        Dim dr As OleDbDataReader = fildg.ExecuteReader

        Do While dr.Read

            ListBox1.Items.Add(dr.Item("tname"))

        Loop

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

    End Sub

End Class