(15-03-23, 07:51 PM)mac9 كتب : السلام عليكم ورحمة الله
محتاج مساعدتكم اخواني
عندي combox1 واريد ان اجلب كل الاسماء الموجود في قاعدة بينات اكسس
هذا رابط سورة قاعدة البينات
اريد جدول name1 يصبح في combox1
وعند الضغط على اي اسم موجود في combox1
يظهر في label1
السعر الخاص بالاسنم الموجود في combox1
اسم جدول السعر هو price
كود :
Public Class Form1
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=True")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter("SELECT name1 FROM Table1", con)
da.Fill(dt)
For i = 0 To dt.Rows.Count - 1
combox1.Items.Add(dt.Rows(i).Item("name1"))
Next
End Sub
Private Sub combox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combox1.SelectedIndexChanged
Dim cmd As New OleDb.OleDbCommand("SELECT price1 FROM Table1 WHERE name1=@n", con)
cmd.Parameters.AddWithValue("@n", combox1.Text)
con.Open()
label1.Text = cmd.ExecuteScalar
con.Close()
End Sub
End Class
