Skip to main content

AccessTr.neT


"Hızlı" SQL veri tabanından tabloyu excel aktarma

"Hızlı" SQL veri tabanından tabloyu excel aktarma

#1
merhabalar
ben bir tablomda 30915 kayıt mevcut bir butona tıklayın Sql tablomdan direk Excel aktarmasını istiyorum google v.s gibi sitelerde bir çok kod buldum denemedım ve veri aktarma çok yavaş Access daha hızlı kalıyordu bu konuda Access gönder dedimde hemen açıyor ama şimdi bunu VB.net göre yapmaya çalışıyorum burada takıldım bu konuda yardım edermisiniz
hızlı aktarmasını istiyorum benım buldugum kodlar 15 dk geçiyor daha aktarma bitemiyor yardımcı olursanız sevinirim

herkeze hayırlı ramazanlar
Cevapla
#2
(06/06/2016, 03:47)ramazanemrullah yazdı: merhabalar
ben bir tablomda 30915 kayıt mevcut bir butona tıklayın Sql tablomdan direk Excel aktarmasını istiyorum google v.s gibi sitelerde bir çok kod buldum denemedım ve veri aktarma çok yavaş Access daha hızlı kalıyordu bu konuda Access gönder dedimde hemen açıyor ama şimdi bunu VB.net göre yapmaya çalışıyorum burada takıldım bu konuda yardım edermisiniz
hızlı aktarmasını istiyorum benım buldugum kodlar 15 dk geçiyor daha aktarma bitemiyor yardımcı olursanız sevinirim

herkeze hayırlı ramazanlar

Verilerinizin dataridde listelendiğini varsayarak cevaplıyorum.
Public Sub Excele_Aktar(ByVal Datagrid As DataGridView)

       Dim rowsTotal, colsTotal As Short
       Dim I, j, iC As Short
       System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
       Dim xlApp As New Excel.Application
       Try
           Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
           Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
           xlApp.Visible = True
           rowsTotal = Datagrid.RowCount - 1
           colsTotal = Datagrid.Columns.Count - 1
           With excelWorksheet
               .Cells.Select()
               .Cells.Delete()
               For iC = 0 To colsTotal
                   .Cells(1, iC + 1).Value = Datagrid.Columns(iC).HeaderText
               Next
               For I = 0 To rowsTotal - 1

                   'For j = 0 To colsTotal - 1
                   For j = 0 To colsTotal
                       .Cells(I + 2, j + 1).value = Datagrid.Rows(I).Cells(j).Value
                   Next j


               Next I
               '.Rows("1:1").Font.FontStyle = "Bold"
               '.Rows("1:1").Font.Size = 10
               .Cells.Columns.AutoFit()
               .Cells.Select()
               .Cells.EntireColumn.AutoFit()
               .Cells(1, 1).Select()
           End With
       Catch ex As Exception
           MsgBox("Aktarım Hatası " & ex.Message)
       Finally
           System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
           xlApp = Nothing
       End Try

   End Sub

Private Sub ExcellAktar_Click(sender As Object, e As EventArgs) Handles ExcellAktar.Click
       Excele_Aktar(DataGridView1)
   End Sub
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#3
(08/02/2017, 17:26)drummers yazdı:
(06/06/2016, 03:47)ramazanemrullah yazdı: merhabalar
ben bir tablomda 30915 kayıt mevcut bir butona tıklayın Sql tablomdan direk Excel aktarmasını istiyorum google v.s gibi sitelerde bir çok kod buldum denemedım ve veri aktarma çok yavaş Access daha hızlı kalıyordu bu konuda Access gönder dedimde hemen açıyor ama şimdi bunu VB.net göre yapmaya çalışıyorum burada takıldım bu konuda yardım edermisiniz
hızlı aktarmasını istiyorum benım buldugum kodlar 15 dk geçiyor daha aktarma bitemiyor yardımcı olursanız sevinirim

herkeze hayırlı ramazanlar

Verilerinizin dataridde listelendiğini varsayarak cevaplıyorum.
Public Sub Excele_Aktar(ByVal Datagrid As DataGridView)

       Dim rowsTotal, colsTotal As Short
       Dim I, j, iC As Short
       System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
       Dim xlApp As New Excel.Application
       Try
           Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
           Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
           xlApp.Visible = True
           rowsTotal = Datagrid.RowCount - 1
           colsTotal = Datagrid.Columns.Count - 1
           With excelWorksheet
               .Cells.Select()
               .Cells.Delete()
               For iC = 0 To colsTotal
                   .Cells(1, iC + 1).Value = Datagrid.Columns(iC).HeaderText
               Next
               For I = 0 To rowsTotal - 1

                   'For j = 0 To colsTotal - 1
                   For j = 0 To colsTotal
                       .Cells(I + 2, j + 1).value = Datagrid.Rows(I).Cells(j).Value
                   Next j


               Next I
               '.Rows("1:1").Font.FontStyle = "Bold"
               '.Rows("1:1").Font.Size = 10
               .Cells.Columns.AutoFit()
               .Cells.Select()
               .Cells.EntireColumn.AutoFit()
               .Cells(1, 1).Select()
           End With
       Catch ex As Exception
           MsgBox("Aktarım Hatası " & ex.Message)
       Finally
           System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
           xlApp = Nothing
       End Try

   End Sub

Private Sub ExcellAktar_Click(sender As Object, e As EventArgs) Handles ExcellAktar.Click
       Excele_Aktar(DataGridView1)
   End Sub

merhaba böyle aktarma yapabiliyorum fakat çok yavaş yapıyor aktarmayı bu kadar kayıt 1 saat te bitmiyor daha hızlı bir şekilde DataGridView1' ile deilde direk tablodan excele atsam cok iyi olur
Cevapla
#4
Örnek projenizi ekleyin yardımcı olmaya çalışalım.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task