05-01-23, 04:56 PM
السلام عليكم
عندي كود اريد تطبيق العرض نتيجة على لسيت بوكس وحدة
بدل تاكست بوكس
عندي كود اريد تطبيق العرض نتيجة على لسيت بوكس وحدة
بدل تاكست بوكس
كود :
con.Open
Dim strsql As String
strsql = "select id,dataa1,dataa2,dataa3 from TBLDAAT where id='" + TextBox1.Text + "'"
Dim cmd2 As New OleDbCommand(strsql, con)
Dim myreader As OleDbDataReader
myreader = cmd2.ExecuteReader
myreader.Read()
ListBox1.Text = myreader("dataa1")
TextBox2.Text = myreader("dataa2")
TextBox3.Text = myreader("dataa3")
()con.Close