[مبرمج بلا حدود]

(19-08-15, 11:14 PM)khodor1985 كتب : إليك هذا المثال أخي العزيز

PHP كود :

Private conn As OleDbConnection = New OleDbConnection(connStr)
conn.Open()
Dim str As String = "SELECT * FROM Heading"
Dim da1 As OleDbDataAdapter = New OleDbDataAdapter(str, conn)
Dim ds1 As DataSet = New DataSet("Heading")
da1.Fill(ds1, "Heading")
Dim ds2 As DataSet = New DataSet("SubHead")
str = "SELECT * FROM SubHeading"
Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(str, conn)
da2.Fill(ds2, "SubHeading")
Dim ds3 As DataSet = New DataSet("Link")
str = "SELECT * FROM Link"
Dim da3 As OleDbDataAdapter = New OleDbDataAdapter(str, conn)
da3.Fill(ds3, "Link")
ds1.Merge(ds2)
ds1.Merge(ds3)
dataGrid1.DataSource = ds1.DefaultViewManager
conn.Close() 


أتمنى لك التوفيق

السلام عليكم ورحمة الله وبركاته 
جزاكـ الله خير اخي وباركـ الله فيكـ ربي يحفظكـ 
لدي عدة استفسارات :
هل تقصد Heading اسم الجدول الاول ، والـ SubHeading اسم الجدول الثاني . 
وهناكـ متغيرات لم اعرف فائدتهن (اعذرني على قصر معرفتي باركـ الله فيكـ)
انا هذه طريقة ربطا لقاعدة لدي 

PHP كود :

Public constr As String = "provider=microsoft.ace.oledb.12.0; data source=|datadirectory|\DB_Pharmacy.accdb;jet oledb:database password=ph2015"
    Public con As New OleDbConnection(constr)