[Abdelazez.Ahmad]

(04-09-17, 05:31 AM)سعود كتب : سويت فورم جديد وتم المطلوب

---

كود :

Public Class Form2
   Dim constring As String = "Data Source=(Local)\sqlexpress;Initial Catalog=elec;MultipleActiveResultSets=False;Trusted_Connection=True;"
   Dim con As New SqlClient.SqlConnection(constring)
   Dim dt As DataTable
   Dim da2 As SqlClient.SqlDataAdapter
   Dim cmd As SqlClient.SqlCommandBuilder
   Private Sub gd()
       dt = New DataTable
       da2 = New SqlClient.SqlDataAdapter("select * from Tab_Users", con)
       cmd = New SqlClient.SqlCommandBuilder(da2)
       da2.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = dt.Columns(1).ColumnName.ToString
   End Sub
   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       gd()
   End Sub
   Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
       If e.Button = Windows.Forms.MouseButtons.Left Then
           TextBox1.Text = dt(ListBox1.SelectedIndex)(1)
           TextBox2.Text = dt(ListBox1.SelectedIndex)(2)
           TextBox3.Text = dt(ListBox1.SelectedIndex)(3)
       End If
   End Sub
End Class

---

فيه حركة حلوة بالكود حتى لو غيرت باسماء الاعمدة لن يتاثر الكود....قلت الاعمدة وليس اسم الجدول

جزاك الله أخي الكريم / سعود
جاري التجربة