20-02-22, 07:07 AM
السلام عليكم ورحمة الله وبركاته
برجاء طريقة تعبئة الداتا جريد فيو من اكثر من قاعدة البيانات
بمعنى يتم البحث داخل اكثر من قاعدة بيانات تتشارك في اسماء الاعمدة و لكن عند عن استخدام الكود يتم الاستخراج من اول قاعدة و تعبئة البيانات في الداتا جريد فيو و ثم الاستخراج من ثاني قاعدة و مسح الداتا جريد فيو و عرض الاستخراج الثاني و المراد هنا عرض جميع البيانات تحت بعض بدون حذف اي شئ
ولكم الشكر مقدما
الكود المستخدم :
برجاء طريقة تعبئة الداتا جريد فيو من اكثر من قاعدة البيانات
بمعنى يتم البحث داخل اكثر من قاعدة بيانات تتشارك في اسماء الاعمدة و لكن عند عن استخدام الكود يتم الاستخراج من اول قاعدة و تعبئة البيانات في الداتا جريد فيو و ثم الاستخراج من ثاني قاعدة و مسح الداتا جريد فيو و عرض الاستخراج الثاني و المراد هنا عرض جميع البيانات تحت بعض بدون حذف اي شئ
ولكم الشكر مقدما
الكود المستخدم :
كود :
For i = 0 To ListBox1.Items.Count - 1
Dim connnn As String = "Data Source=" & ListBox1.Items(i).ToString & ".db"
' Dim ds As New DataSet
Dim ds = New DataTable()
Application.DoEvents()
'Try
Using con As New SQLiteConnection(connnn)
Application.DoEvents()
Using cmd As New SQLiteCommand(msql, con)
Application.DoEvents()
con.Open()
Application.DoEvents()
Using da As New SQLiteDataAdapter(cmd)
' Using ds As New DataTable()
Application.DoEvents()
da.Fill(ds)
Application.DoEvents()
DataGridView1.DataSource = ds
'dt = ds.Tables(0)
Application.DoEvents()
'End Using
End Using
Application.DoEvents()
End Using
Application.DoEvents()
End Using
Application.DoEvents()
Next