28-08-14, 07:42 PM
السلام عليكم ورحمة الله وبركاته
اخواني اعضاء المنتدي الرائع
اريد مساعدتكم في استخدام ال Data Repeater
حيث انني اضفت الاداه واضفت اليها Text Box
وعند عمل الأتصال لاتظهر البيانات في ال Text Box المضاف وهذا هو الكود الموضوع عند تحميل الفورم
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB SyS\DB.mdb")
Dim DS1 As New DataSet
Dim SQL4 As String = "Select * from Fixed_Data_Employees"
Dim DA3 As New OleDbDataAdapter(SQL4, Conn)
Dim Bin As New BindingSource
'Dim DT As New DataTable
Conn.Open()
DA3.Fill(DS1, "Fixed_Data_Employees")
Conn.Close()
Bin.DataSource = DS1
Bin.DataMember = "Fixed_Data_Employees"
TextBox1.DataBindings.Add("Text", Bin, "Emp_ID")
DataRepeater1.DataSource = Bin
بارك الله فيكم
اخواني اعضاء المنتدي الرائع
اريد مساعدتكم في استخدام ال Data Repeater
حيث انني اضفت الاداه واضفت اليها Text Box
وعند عمل الأتصال لاتظهر البيانات في ال Text Box المضاف وهذا هو الكود الموضوع عند تحميل الفورم
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB SyS\DB.mdb")
Dim DS1 As New DataSet
Dim SQL4 As String = "Select * from Fixed_Data_Employees"
Dim DA3 As New OleDbDataAdapter(SQL4, Conn)
Dim Bin As New BindingSource
'Dim DT As New DataTable
Conn.Open()
DA3.Fill(DS1, "Fixed_Data_Employees")
Conn.Close()
Bin.DataSource = DS1
Bin.DataMember = "Fixed_Data_Employees"
TextBox1.DataBindings.Add("Text", Bin, "Emp_ID")
DataRepeater1.DataSource = Bin
بارك الله فيكم