اتصال چند جدول به کریستال

[ali_md110]

Dim dstData As New taxiDataSet

Dim strQuery As String = "Select * From tbaccounts"

 Dim strQuerysetting As String = "Select * From setting"

Dim sqlDataAdapter1 As  OleDbDataAdapter

sqlDataAdapter1 =new OleDbDataAdapter(strQuery, sqlConnection1)

sqlDataAdapter1.Fill(dstData, "tbaccounts")

sqlDataAdapter1 =new OleDbDataAdapter(strQuerysetting, sqlConnection1)

sqlDataAdapter1.Fill(dstData, "setting

اگر حداول دارای رابطه هستند نیازی به پرکردن دوباره دیتاست نیست ولی اگر جداول هیچ رابطه ندارند باید هردو را بریزی توی دیتاست