(03-04-16, 12:05 AM)khodor1985 كتب : السلام عليكم ورحمة الله وبركاته
وهذه طريقة أخرى أيضا :
المرفق بعد التعديل :

الأكواد :
قم باستدعاء المكتبات التالية:

PHP كود :

Imports System.Data.OleDb
Imports System.Data 


قم بالإعلان عن المتغيرات التالية :

PHP كود :

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim bs As BindingSource
    Dim sqlstr As String 


تحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :

PHP كود :

Try
            con.Open()
            sqlstr = "SELECT * From tbl_Students"
            cmd = New OleDbCommand(sqlstr, con)
            da = New OleDbDataAdapter(cmd)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "tbl_Students")

            bs = New BindingSource
            bs.DataSource = ds.Tables("tbl_Students")

            TextBox1.DataBindings.Clear()
            TextBox3.DataBindings.Clear()
            TextBox2.DataBindings.Clear()

            TextBox1.DataBindings.Add("text", bs, "std_Name")
            TextBox3.DataBindings.Add("text", bs, "std_Age")
            TextBox2.DataBindings.Add("text", bs, "std_Address")



            con.Close()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try 


الوصول إلى آخر سحل في قاعدة البيانات :

PHP كود :

bs.MoveLast() 


أتمنى لك التوفيق

---

المثال الثاني : إستخدام CurrencyManager
المرفق بعد التعديل :

الأكواد :
قم بالإعلان عن المتغيرات التالية :

PHP كود :

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim cur As CurrencyManager
    Dim sqlstr As String 


تحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :

PHP كود :

Try
            con.Open()
            sqlstr = "SELECT * From tbl_Students"
            cmd = New OleDbCommand(sqlstr, con)
            da = New OleDbDataAdapter(cmd)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "tbl_Students")

            cur = CType(BindingContext(ds.Tables("tbl_Students")), CurrencyManager)
          

            TextBox1.DataBindings.Clear()
            TextBox3.DataBindings.Clear()
            TextBox2.DataBindings.Clear()

            TextBox1.DataBindings.Add("text", ds.Tables("tbl_Students"), "std_Name")
            TextBox3.DataBindings.Add("text", ds.Tables("tbl_Students"), "std_Age")
            TextBox2.DataBindings.Add("text", ds.Tables("tbl_Students"), "std_Address")

            con.Close()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try 


الوصول إلى آخر سجل في قاعدة البيانات :

PHP كود :

cur.Position = cur.Count - 1 


أتمنى لك التوفيق

---

المثال 3 : BindingManagerBase
المرفق بعد التعديل :

الأكواد :
قم بالإعلان عن المتغيرات التالية :

PHP كود :

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
    Dim cmd As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim bmb As BindingManagerBase
    Dim sqlstr As String 


قم بتحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :

PHP كود :

Try
            con.Open()
            sqlstr = "SELECT * From tbl_Students"
            cmd = New OleDbCommand(sqlstr, con)
            da = New OleDbDataAdapter(cmd)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "tbl_Students")

            bmb = CType(BindingContext(ds.Tables("tbl_Students")), BindingManagerBase)
          

            TextBox1.DataBindings.Clear()
            TextBox3.DataBindings.Clear()
            TextBox2.DataBindings.Clear()

            TextBox1.DataBindings.Add("text", ds.Tables("tbl_Students"), "std_Name")
            TextBox3.DataBindings.Add("text", ds.Tables("tbl_Students"), "std_Age")
            TextBox2.DataBindings.Add("text", ds.Tables("tbl_Students"), "std_Address")

            con.Close()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try 


للوصول إلى السجل الأخير في قاعدة البيانات :

PHP كود :

bmb.Position = bmb.Count - 1 


أتمنى لك التوفيق