[Abdelazez.Ahmad]

اسلام عليكم ورحمة الله وبركاته
إخوتي الكرام هذه كود لتعبئة لست بوكس في حدوث الفورم لود
مشكلتي عندما افرع الداتا ست بعد تعبئة اللست بوك تتفرغ اللست بوكس من البيانات مرة أخري
لا أعلم ما السبب

برجاء المساعدة

كود :

      SQL = "SELECT * FROM Tab_Users order by G_ID"
      Da = New SqlDataAdapter(SQL, connDB)
      Try
          Lst_Users.DataSource = Nothing
          Lst_Users.Text = ""

          DS = New DataSet
          Da.Fill(DS, "Tab_users")
          'Da.Fill(DS, 0)
          'وهذا الكود يعمل أيضا


          With Lst_Users
              .DataSource = DS.Tables("Tab_users")
              '.DataSource = DS.Tables(0)  وهذا الكود يعمل أيضا
              .DisplayMember = "User_Name"
              .ValueMember = "User_Name"
              .SelectedIndex = -1
              .Refresh()
          End With
          Da.Dispose()
          'DS.Clear()   مشكلتي عندما افرع الداتا ست بعد تعبئة اللست بوك تتفرغ اللست بوكس من البيانات مرة أخري
      Catch ex As Exception

      End Try

[سعود]

شي طبيعي اخي لانك ربطتها بالمصدر واي شيء يطرا على المصدر يقع على الاداة المربوطة.

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\db.accdb"
   Dim con As OleDb.OleDbConnection
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Private Sub gd()
       con = New OleDb.OleDbConnection(str)
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       da.Fill(dt)
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       gd()
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ListBox1.Items.Clear()
       For r = 0 To dt.Rows.Count - 1
           ListBox1.Items.Add(dt(r)(1))
       Next
   End Sub
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dt.Clear()
   End Sub
End Class

جرب الكود

[Abdelazez.Ahmad]

(02-09-17, 01:33 AM)سعود كتب : شي طبيعي اخي لانك ربطتها بالمصدر واي شيء يطرا على المصدر يقع على الاداة المربوطة.

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\db.accdb"
   Dim con As OleDb.OleDbConnection
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Private Sub gd()
       con = New OleDb.OleDbConnection(str)
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       da.Fill(dt)
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       gd()
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ListBox1.Items.Clear()
       For r = 0 To dt.Rows.Count - 1
           ListBox1.Items.Add(dt(r)(1))
       Next
   End Sub
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       dt.Clear()
   End Sub
End Class

جرب الكود

السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي الكريم سعود جاري التنفيذ والتحقق

[سعود]

إقتباس :السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا أخي الكريم سعود جاري التنفيذ والتحقق

و عليكم السلام ورحمة الله وبركاته
و إياك ...
و بانتظار رايك