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