السلام عليكم اخوة
مطلوب كود 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 هو متغير داتاتيبل تمت تعبئة البيانات فيه
(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 بناء على التسميات التي ذكرتها انت في سؤالك
(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
كما ذكرت لك قي السطر الثاني من مشاركتي الاولى الكود للسيكوال
ولكن للاسف يظهر انه لا يعمل مع اكسس