سويت فورم جديد وتم المطلوب
فيه حركة حلوة بالكود حتى لو غيرت باسماء الاعمدة لن يتاثر الكود....قلت الاعمدة وليس اسم الجدول
كود :
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فيه حركة حلوة بالكود حتى لو غيرت باسماء الاعمدة لن يتاثر الكود....قلت الاعمدة وليس اسم الجدول
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
