+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة (/showthread.php?tid=20748)
دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة - khaled12345 - 15-06-17
السلام عليكم الاخوة الاحباب
عندي مشروع عباره عن عدد اربعة داتا جريد فيو اعرضها من اربع ملفات اكسس منفصلة
المطلوب دمج كل هذه الاربعة داتا جريد فيو
واعرضها في داتا جريد فيو واحدة في الشاشة الرئيسية
بمعني لو كل داتا جريد فيو من الاربعة مثلا بها عشر سجلات
يكون الناتج في الشاشة الرئيسية هو اربعون سجلا
مع الشكر للمساعدة
المشروع في المرفقات
RE: دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة - أبووسم - 15-06-17
فكرة ممتازة ، بإنتظار الأخوان للمشاركة
حتى نستفيد منها جميعاً .
RE: دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة - ابو خالد - 15-06-17
اسحب كل البيانات من الداتا الاربع الى الداتا الرئيسية
PHP كود :
Dim i As Integer
For i = 0 To dgv1.RowCount - 1
dgv5.Rows.Add(dgv1.Item(0, i).Value, dgv1.Item(1, i).Value)
Next
For i = 0 To dgv2.RowCount - 1
dgv5.Rows.Add(dgv2.Item(0, i).Value, dgv2.Item(1, i).Value)
Next
For i = 0 To dgv3.RowCount - 1
dgv5.Rows.Add(dgv3.Item(0, i).Value, dgv3.Item(1, i).Value)
Next
For i = 0 To dgv4.RowCount - 1
dgv5.Rows.Add(dgv4.Item(0, i).Value, dgv4.Item(1, i).Value)
Next
RE: دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة - khaled12345 - 15-06-17
(15-06-17, 03:25 PM)ابو خالد كتب : اسحب كل البيانات من الداتا الاربع الى الداتا الرئيسية
PHP كود :
Dim i As Integer
For i = 0 To dgv1.RowCount - 1
dgv5.Rows.Add(dgv1.Item(0, i).Value, dgv1.Item(1, i).Value)
Next
For i = 0 To dgv2.RowCount - 1
dgv5.Rows.Add(dgv2.Item(0, i).Value, dgv2.Item(1, i).Value)
Next
For i = 0 To dgv3.RowCount - 1
dgv5.Rows.Add(dgv3.Item(0, i).Value, dgv3.Item(1, i).Value)
Next
For i = 0 To dgv4.RowCount - 1
dgv5.Rows.Add(dgv4.Item(0, i).Value, dgv4.Item(1, i).Value)
Next
أعز ك الله أخي الحبيب أبو خالد
كتبت الكود في الفورم الرئيسي كالتالي ولكن يبدو فيه خطأ مني
فبرجاء مراجعته مع الشكر
========================================================================
Imports System.Data.OleDb
Public Class MainForm
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Data1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Data2.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Data3.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Data4.Show()
End Sub
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To dgv1.RowCount - 1
dgv5.Rows.Add(dgv1.Item(0, i).Value, dgv1.Item(1, i).Value)
Next
For i = 0 To dgv2.RowCount - 1
dgv5.Rows.Add(dgv2.Item(0, i).Value, dgv2.Item(1, i).Value)
Next
For i = 0 To dgv3.RowCount - 1
dgv5.Rows.Add(dgv3.Item(0, i).Value, dgv3.Item(1, i).Value)
Next
For i = 0 To dgv4.RowCount - 1
dgv5.Rows.Add(dgv4.Item(0, i).Value, dgv4.Item(1, i).Value)
Next
End Sub
End Class
RE: دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة - ممدوح الخطيب - 16-06-17
دالة ترجع بجدول
PHP كود :
Private Function final_table() As DataTable
Dim table As New DataTable
Dim t1 As New DataTable
'====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
da = New OleDbDataAdapter("Select * from data1", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data2.accdb")
da = New OleDbDataAdapter("Select * from data2", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data3.accdb")
da = New OleDbDataAdapter("Select * from data3", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data4.accdb")
da = New OleDbDataAdapter("Select * from data4", con)
da.Fill(t1)
table.Merge(t1)
t1.Dispose()
'=====================================================================================================
Return table
End Function
RE: دمج عدد من الداتا جريد فيو وعرضها في داتا جريد فيو واحدة - khaled12345 - 16-06-17
(16-06-17, 02:08 PM)ممدوح الخطيب كتب : دالة ترجع بجدول
PHP كود :
Private Function final_table() As DataTable
Dim table As New DataTable
Dim t1 As New DataTable
'====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
da = New OleDbDataAdapter("Select * from data1", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data2.accdb")
da = New OleDbDataAdapter("Select * from data2", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data3.accdb")
da = New OleDbDataAdapter("Select * from data3", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data4.accdb")
da = New OleDbDataAdapter("Select * from data4", con)
da.Fill(t1)
table.Merge(t1)
t1.Dispose()
'=====================================================================================================
Return table
End Function
ألف الف الف شكر احي الحبيب ممدوح
تمام تمام تمام
