15-05-17, 07:01 PM
السلام عليكم ورحمة اللع وبركاته
بالله ا للي عندة حل لمشكلتي ينصحني
انا ننفد في هدا الكود ولم اجد اي نتيجة في ال textbox هل هدا خطا مني او اني لم اعرف مكتبة ما المشكلة
وشكرا
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Public constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\mydata"
Public conn As New OleDbConnection(constr)
Public sqlstr As String = "select * from table1"
Public dataset1 As New DataSet
Dim dataadapter1 As OleDbDataAdapter
Dim dt As New DataTable
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataBindings.Clear()
DataSet1.Clear()
conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
DataAdapter1.Fill(DataSet1, "Table1")
conn.Close()
On Error Resume Next
TextBox1.DataBindings.Add("Text", dataset1, "Table1.Name")
TextBox2.DataBindings.Add("Text", dataset1, "Table1.City")
TextBox3.DataBindings.Add("Text", dataset1, "Table1.mobile")
End Sub
End Class
بالله ا للي عندة حل لمشكلتي ينصحني
انا ننفد في هدا الكود ولم اجد اي نتيجة في ال textbox هل هدا خطا مني او اني لم اعرف مكتبة ما المشكلة
وشكرا
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Public constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\mydata"
Public conn As New OleDbConnection(constr)
Public sqlstr As String = "select * from table1"
Public dataset1 As New DataSet
Dim dataadapter1 As OleDbDataAdapter
Dim dt As New DataTable
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataBindings.Clear()
DataSet1.Clear()
conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
DataAdapter1.Fill(DataSet1, "Table1")
conn.Close()
On Error Resume Next
TextBox1.DataBindings.Add("Text", dataset1, "Table1.Name")
TextBox2.DataBindings.Add("Text", dataset1, "Table1.City")
TextBox3.DataBindings.Add("Text", dataset1, "Table1.mobile")
End Sub
End Class