خواندن اطلاعات دو جدول یا بیشتر

[vb.net.33]

با سلام

من از کد زیر جهت خواندن و پر کردن دیتا سیت استفاده کردم .اما هنگام خوندن جدول دوم خوانده نمی شود.علت چی می تونه باشه؟


Dim cnnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My_Open.FileName
Dim ad As OleDbDataAdapter
Dim ds As New DataSet



ad = New OleDb.OleDbDataAdapter("select * from data", cnnStr)
ad = New OleDb.OleDbDataAdapter("select * from Grid_data", cnnStr)
ad.Fill(ds)


Me.Text = ds.Tables(0).Rows(0).Item(2)
Me.Text = ds.Tables(1).Rows(0).Item(2)

[tto_baran]

خط آخر را به صورت زیر تغییر بده

Me.Text = Me.Text & Space(2) & ds.Tables(1).Rows(0).Item(2)

[vb.net.33]

خط آخر را به صورت زیر تغییر بده

Me.Text = Me.Text & Space(2) & ds.Tables(1).Rows(0).Item(2)





اون کاری رو که گفتید انجام دادم .اما خطای زیر رو داد:



79232

[tto_baran]

بعد از سطر چهارم اینو اضافه کن
ad.fill(ds)

[vb.net.33]

بعد از سطر چهارم اینو اضافه کن
ad.fill(ds)

این کار رو هم کردم باز خطای قبلی رو داد.

خطای قبلی میگه که نمیتونه جدول با شماره 1 رو بشناسه.خوب ما باید کاری کنیم که بعد از جدول 0 که شناخته شروع به شناختن جدول 1 بکنه.لطفا راهنمائی فرمائید.

[Mohamad_Hosein]

Dim cnnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My_Open.FileName
Dim ad As OleDbDataAdapter
Dim ds As New DataSet

Ds.Tables.Add("Table 1") 'Table 0 Add
Ds.Tables.Add("Table 2") 'Table 1 Add

ad = New OleDb.OleDbDataAdapter("select * from data", cnnStr)
ad.Fill(ds).Table(0) ' Using Table 0
ad = New OleDb.OleDbDataAdapter("select * from Grid_data", cnnStr)
ad.Fill(ds).Table(1) ' Using Table 1

Me.Text = ds.Tables(0).Rows(0).Item(2) & " " & ds.Tables(1).Rows(0).Item(2)

[vb.net.33]

بعد از سطر چهارم اینو اضافه کن
ad.fill(ds)

خیلی ممنوم.ولی کدهاتون پیچیده هستن و زیاد.می تونید اون کدهای منو رو یدیت کنید؟

[vb.net.33]

Dim cnnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My_Open.FileName
Dim ad As OleDbDataAdapter
Dim ds As New DataSet

Ds.Tables.Add("Table 1") 'Table 0 Add
Ds.Tables.Add("Table 2") 'Table 1 Add

ad = New OleDb.OleDbDataAdapter("select * from data", cnnStr)
ad.Fill(ds).Table(0) ' Using Table 0
ad = New OleDb.OleDbDataAdapter("select * from Grid_data", cnnStr)
ad.Fill(ds).Table(1) ' Using Table 1

Me.Text = ds.Tables(0).Rows(0).Item(2) & " " & ds.Tables(1).Rows(0).Item(2)




آقا خیلی ممنونم.یه سوال حاشیه ای و اون هم اینکه من امدم و از طریق کد زیر مقدار دهی کردم:


ds.Tables(0).Rows(0).Item(0) = 55

حالا مقدار 55 رو چطوری می تونم به داخل دیتا بیس آپدیت کنم.چون با توجه به کد بالا ما فقط در ظاهر مقدار سلول 0 و 0 رو تغییر دادیم که در بانک اعمال نشده.برا این کار چکار کنم؟ البته با استفاده از اطلاعات دیتا سیت.