السلام عليكم ورحمة الله وبركاته
لو سمحتوا اريد مساعده في هذا الكود
المطلوب هو اذا اختار المستخدم اسم مدينه من
combobox
تظهر بيانات المدينه في
textbox
موجوده على نفس الفورم
لاني عملت هذي الطريقه بحيث وضعت هذا الكود في اللود للفورم
ظهرت الاسماء في الlist
لكن اذا اخترت المدينه لاتظهر البيانات في التكست
انا اشتغل على الاكسس2003 مع الفجول بيسك 2005
Dim sConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\db.mdb"
conn = New OleDbConnection(sConnStr)
cmd = New OleDbCommand()
daBugs = New OleDbDataAdapter()
dsBugs = New DataSet()
Const sSELECT As String = "SELECT * FROM city"
cmd.CommandText = sSELECT
cmd.Connection = conn
daBugs.SelectCommand = cmd
conn.Open()
daBugs.Fill(dsBugs, "city")
conn.Close()</P>
Dim aRow As DataRow
For Each aRow In dsBugs.Tables("city").Rows
ComboBox1.Items.Add(aRow("city_name"))
Next</P>
Dim dr As OleDbDataReader
sSQL = "Select * FROM city WHERE city_name='" & ComboBox1.Text & "' "
conn.Open()
cmd.CommandText = sSQL
dr = cmd.ExecuteReader()
If dr.Read() Then
textbox.Text = dr("area")
Else
textbox.Text = ""
End If</P>
cmd.CommandText = sSQL
dr = cmd.ExecuteReader()
If dr.Read() Then
TextBox4.Text = dr("s")
End If
dr.Close()
conn.close()
End Sub