کمک برای تهیه فایل اکسل از یک جدول در دیتا بیس ؟

[biyarjomandi]

سلام به همه دوستان .

من یک دیتا بیس اکسس دارم که می خوام یه دکمه رو فرم بزارم و کاربر با کلیک روی دکمه بتونه از یک جدول از دیتا بیس در یک فایل اکسل خروجی بگیره و فایل اکسل در درایو c و با نام myexport ذخیره بشه .

اگر سورس یا کدی و یا لینک انگلیسی هم بود ممنون میشم .

[Hossis]

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

Private Sub ExportDtaToExcel()
'Export DataGridView to Excel
Dim xlapp As Excel.Application
Dim xlworkbook As Excel.Workbook
Dim xlworksheet As Excel.Worksheet
Dim misvalue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
xlapp = New Excel.Application
xlworkbook = xlapp.Workbooks.Add(misvalue)
xlworksheet = xlworkbook.Sheets(1)
For i = 0 To frmMain.DG.RowCount - 1
For j = 0 To frmMain.DG.ColumnCount - 1
xlworksheet.Cells(i + 1, j + 1) = _
frmMain.DG(j, i).Value.ToString()
Next
Next
Try
xlworksheet.SaveAs(txtPath.Text)
Catch exerr As Exception
End Try

xlworkbook.Close()
xlapp.Quit()

releaseObject(xlapp)
releaseObject(xlworkbook)
releaseObject(xlworksheet)

End Sub