ثبت اطلاعات دريافت شده از سرور در بانك اكسس

[mohammadsaleh]

سلام دوستان. من تازه شروع به كار با وي بي دات نت كردم و مشكلي دارم كه اگر دوستان كمكم كنند كه حلش كنم ازشون ممنونم:
من قصد دارم اطلاعاتي كه از طريق سرور ارسال ميشود را در بانك اكسس ذخيره كنم. اطلاعات طبق دستور زير از سرور به صورت ديتاست ارسال ميشود و در ديتاگريد مشاهده ميشود
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rowinPage As Integer = 5
Dim startRow As Integer = 1
Dim location As Integer = 2
'location =>
'Receive = 1,
'Send = 2,

'RecybcleBin = 4,
If Not String.IsNullOrEmpty(TextBoxSignature.Text) Then
Dim message As New PARSGREEN.API_MsgService.MsgService()
Dim ds As DataSet = message.GetMessagePageing(TextBoxSignature.Text, location, CheckBox1.Checked, rowinPage, startRow)
Dim tableMesaage As DataTable = ds.Tables(0)
DataGridView1.DataSource = tableMesaage

End If

End Sub

ولي من قصد دارم انچه در ديتاگريد ويو مشاهده ميشود در بانك اكسس ذخيره شود.

ممنون خواهم شد به سئوال دوم هم پاسخ بدهيد.
اگر بخواهم مقدار يكي از ستونها و رديف ها را با كليك كردن ببينم چه دستوري بايد بنويسم

[Fery666]

بعد از اینکه اطلاعات توی دیتا گرید نشون داده شد می تونین با یه حلقه For از اول تا آخر اطلاعات دیتا گرید رو توی اکسس ذخیره کنید .

ولی اگر تعداد رکورد ها بالا باشه یه خورده زمان میبره . شایدم یه لحظه هنگ کنه.





For i = 0 To dg1.RowCount - 1

' دستورات ذخیره سازی در دیتابیس

Next



برای گرفتن اطلاعات هر رکورد در دیتا گرید :



cel1 = dg1.CurrentRow.Cells(0).Value
cel2 = dg1.CurrentRow.Cells(1).Value
cel3 = dg1.CurrentRow.Cells(2).Value
.
.
.
.




بستگی به تعداد سلول های دیتا گریدتون داره .

[mohammadsaleh]

تشكر. با توجه به اينكه من يه مبتدي تو زمينه وي بي دات نت هستم تو پست زير يك نمونه گذاشتم . اگر ممكنه زحمت بكشيد اونرو ببيند و اصلاح كنيد.
http://barnamenevis.org/showthread.php?478596-%D8%B0%D8%AE%D9%8A%D8%B1%D9%87-%D8%AF%D9%8A%D8%AA%D8%A7%DA%AF%D8%B1%D9%8A%D8%AF-%D8%AF%D8%B1-%D8%AF%D9%8A%D8%AA%D8%A7%D8%A8%D9%8A%D8%B3-%D8%A7%D9%83%D8%B3%D8%B3