[bilgacim]

السلام عليكم  اخوة 
مطلوب  كود    vb لجلب   بيانات   من عمودين  في  جدولين مختلفين   الى  داتا  جريد فيو    مثلا  عندنا   جدول  الاول اسمه  A وفيه اعمدة اسمها 1..2 ..3.....وعندنا جدول اسمع B  وفيه اعمدة اسمها  4  و 5  و6  ..... المطلوب  كود   يجلب  العمود  1  من  الجدول  A  و يجلب   العمود 4  من  الجدول B...  وتعبئتهما  في  داتا جريد فيو ......قاعدة البيانات  الاكسيس

[ابو انس]

وعليكم السلام
كود لجلب بيانات من جدولين / سيكوال سيرفر اتمنى انه ينجح مع اكسس/

كود :

select A.1,B.4 from A,B

كود لادخال البيانات التي تم جلبها الى داتا جريد فيو

كود :

For I As Integer = 0 To DT.Rows.Count - 1
               DGV.Rows(I).Cells(0).Value = DT.Rows(I)(0).ToString()
               DGV.Rows(I).Cells(1).Value = DT.Rows(I)(1).ToString()
         NEXT

حيث DT هو متغير داتاتيبل تمت تعبئة البيانات فيه

[bilgacim]

(11-08-21, 08:46 AM)ابو انس كتب : وعليكم السلام
كود لجلب بيانات من جدولين / سيكوال سيرفر اتمنى انه ينجح مع اكسس/

كود :

select A.1,B.4 from A,B

كود لادخال البيانات التي تم جلبها الى داتا جريد فيو

كود :

For I As Integer = 0 To DT.Rows.Count - 1
               DGV.Rows(I).Cells(0).Value = DT.Rows(I)(0).ToString()
               DGV.Rows(I).Cells(1).Value = DT.Rows(I)(1).ToString()
         NEXT

حيث DT هو متغير داتاتيبل تمت تعبئة البيانات فيه


للاسف لم تنجح   ممكن  توضيح اين اضع الكود الاول ؟؟؟   .....

كود :

select A.1,B.4 from A,B

[ابو انس]

انا افهم من سؤالك انك تعرف كيف تجلب بيانات من جدول
تصرف وكأنك تتعامل مع جدول واحد
الكود الاول هو استعلام ضعه في نفس المكان الذي تضع فيه استعلام جلب بيانات من جدول واحد
ولا تنسى ان تغير اسماء الجداول والحقول بما يتوافق عندك انا استخدمت الاحرف A و B والارقام 1 و 4 بناء على التسميات التي ذكرتها انت في سؤالك

[bilgacim]

(11-08-21, 06:25 PM)ابو انس كتب : انا افهم من سؤالك انك تعرف كيف تجلب بيانات من جدول
تصرف وكأنك تتعامل مع جدول واحد
الكود الاول هو استعلام ضعه في نفس المكان الذي تضع فيه استعلام جلب بيانات من جدول واحد
ولا تنسى ان تغير اسماء الجداول والحقول بما يتوافق عندك انا استخدمت الاحرف  A و B والارقام 1 و 4 بناء على التسميات التي ذكرتها انت في سؤالك

نعم اخي  الكريم  :   وضعتها  في مكانها  لكن لم ينجح  في  جلب  والكود الكامل  لجلب البيانات  هو  هذا 

كود :

Imports System.Data.OleDb

Public Class Form16

   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=DA.accdb")
   Dim da As New OleDbDataAdapter()
   Dim dt As New DataTable



   Sub load_data()
       dt.Clear()
       da = New OleDbDataAdapter("Select * From TAB12", con)
       da.Fill(dt)
   End Sub

   Sub save_date()
       Dim save As New OleDbCommandBuilder(da)
       save.QuotePrefix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub

[ابو انس]

كما ذكرت لك قي السطر الثاني من مشاركتي الاولى الكود للسيكوال
ولكن للاسف يظهر انه لا يعمل مع اكسس