[عضو جديد]

(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