[khaled12345]

السلام عليكم الاخوة الاحباب

عندي مشروع عباره عن عدد اربعة داتا جريد فيو اعرضها من اربع ملفات اكسس منفصلة

المطلوب دمج كل هذه الاربعة داتا جريد فيو

واعرضها في داتا جريد فيو واحدة في الشاشة الرئيسية

بمعني لو كل داتا جريد فيو من الاربعة مثلا بها عشر سجلات

يكون الناتج في الشاشة الرئيسية هو اربعون سجلا 

مع الشكر للمساعدة

المشروع في المرفقات

[أبووسم]

فكرة ممتازة ، بإنتظار الأخوان للمشاركة

حتى نستفيد منها جميعاً .

[ابو خالد]

اسحب كل البيانات من الداتا الاربع الى الداتا الرئيسية
 

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 


[khaled12345]

(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

[ممدوح الخطيب]

دالة ترجع بجدول

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 


[khaled12345]

(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 


ألف الف الف شكر احي الحبيب ممدوح

تمام تمام تمام