انتقال اطلاعات از ليست به اكسس

[f_g1348]

سلام
من يه list view دارم با 3 ستون.
چطور مي تونم سطر هاي اون رو توي يك جدول در اكسس بريزم؟

[Mani_rf]

سلام
با استفاده از این تابع می توانی تمامی اطلاعات درو Data Viwe Grid را درون یک فایل Excel ذخیره کنی

تکه برنامه ساده ای است . به نسبت نیاز کارت می توانی تغییرش بدهی.


Private Sub ExportToExcel(ByVal DataGridView1 As DataGridView)
Dim SaveFileDialog1 As New SaveFileDialog
SaveFileDialog1.Filter = "*.xls|*.xls"

SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then

Dim oExcel As Object

Dim oWorkBook As Object

Dim oSheet As Object

oExcel = CreateObject("Excel.Application")
oWorkBook = oExcel.Workbooks.Add
oExcel.visible = True

Dim c, r As Integer

Dim ColNum As Integer = DataGridView1.ColumnCount
Dim RowNum As Integer = DataGridView1.RowCount
Dim col As Integer = 65
oSheet = oWorkBook.worksheets(1)
For c = 1 To ColNum
oSheet.Range(CStr(Chr(col) & 1)).Value = DataGridView1.Columns(c - 1).HeaderText
col += 1
Next

For r = 1 To RowNum
For c = 1 To ColNum
oSheet.Cells(r + 1, c) = DataGridView1.Rows(r - 1).Cells(c - 1).Value
Next

Next

oWorkBook.SaveAs(SaveFileDialog1.FileName, True)
oSheet = Nothing

oWorkBook = Nothing

oExcel = Nothing

End If

End Sub


فقط کافی تابع را فراخانی کنی و به عنوان پارامتر ورودی نام Dara Grid View را وارد کنی.
مثال

ExportToExcel(DgvData)

[f_g1348]

دست شما درد نكنه ولي من datagrideview نمي خواهم من list view لازم دارم.

[Mani_rf]

راستش را بخوای من زیاد با ListView کار نکردن اما بلاخره از طریق یک نوع موختصات دهی به اطلاعات داخلش دستریسی داری که می توانی اطلاعات آن را بخوانی!!!
در Procedure که برات فرستادم بجای Row و Column که در DataGridView هست مختصات یا اطلاعات خوانده شده از ListView را که داری بگذار.
یا مستقیم سطر به سطر از ListView بخوان و جای اطلاعات خوانده شده Procedure بگذار.
قسمت سخت این کار تبدیل کردن به Excle ازطریق VB.Net بود که برات گذاشتم. من بیشتر از این کاری از دستم بر نمی آید.
َشرمنده...