تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أريد تفريغ الداتاست بعد استخدامها
#1
اسلام عليكم ورحمة الله وبركاته
إخوتي الكرام هذه كود لتعبئة لست بوكس في حدوث الفورم لود
مشكلتي عندما افرع الداتا ست بعد تعبئة اللست بوك تتفرغ اللست بوكس من البيانات مرة أخري
لا أعلم ما السبب

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


كود :
      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
الرد }}}
تم الشكر بواسطة:
#2
شي طبيعي اخي لانك ربطتها بالمصدر واي شيء يطرا على المصدر يقع على الاداة المربوطة.

كود :
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

جرب الكود
الرد }}}
تم الشكر بواسطة:
#3
(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

جرب الكود

السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي الكريم سعود جاري التنفيذ والتحقق
الرد }}}
تم الشكر بواسطة:
#4
إقتباس :السلام عليكم ورحمة الله وبركاته

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

و عليكم السلام ورحمة الله وبركاته
و إياك ...
و بانتظار رايك Smile
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بشرح ربط قاعدة بيانات اكسس و استخدامها عبر النت rami700 2 475 06-11-23, 04:16 PM
آخر رد: أبووسم
  أريد كود لغلق جميع النوافذ عند تسجيل الخروج Emam emam 2 502 10-07-23, 02:12 AM
آخر رد: Emam emam
  لدي 73 Plan credits في Adobe Stock لمن يرغب في استخدامها عبدالله الدوسري 0 474 13-06-23, 08:55 AM
آخر رد: عبدالله الدوسري
  مشكلة في تفريغ السابق mohmmadadli1 1 1,014 24-03-22, 04:27 PM
آخر رد: ابو انس
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 4,179 29-12-21, 10:56 AM
آخر رد: سعود
  أريد أعرف كيفية ربط الكريستال ريبورت مع قاعدة بيانات من نوع MySQL alessam4pro 0 955 07-11-21, 06:01 PM
آخر رد: alessam4pro
  اريد تفريغ بيانات جدول الى جدول اخر مع حذف البيانات التى فى الجدول المفرغ منه خالد كامل1 1 1,297 19-06-21, 10:01 PM
آخر رد: خالد كامل1
  أريد معرفة ما ان كان البرنامج موجود مسبقا علي الكمبيوتر ام لا أبو عبدالله الحلواني 9 2,190 06-05-21, 08:10 PM
آخر رد: أبو عبدالله الحلواني
  تفريغ الكومبو بوكس من البيانات aftfm 1 1,340 27-02-21, 11:16 AM
آخر رد: معاند الحظ
  أريد كود يقوم بأضافة الاسم للـ TextBox or My.Settings تلقائياً بدل يدوياً ؟ PeterGhattas082460 1 1,198 07-02-21, 03:16 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم