How do I export sql data to an excel spreadsheet?

[jakeesgirl]

I have a search page in my program where users can search for member data. The results come up in the data grid view, but I also want users to be able to export the search results into an Excel spreadsheet. What is the best way to do this?

[iburyak]

Here is my VB6 function where I can pass highlited part of a grid or whole thing to Excel.

Public Function SaveFlexGridToExcel(TheFlexgrid As MSFlexGrid, _
                             TheRows As Integer, TheCols As Integer, _
                             Optional GridStyle As Integer = 1, Optional WorkSheetName As String)
 
Dim objXL 'As New Excel.Application
Dim wbXL 'As New Excel.Workbook
Dim wsXL 'As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter
 
On Error GoTo ErrorHandler
 
Set objXL = CreateObject("Excel.Application.11")
 
If Not IsObject(objXL) Then
    MsgBox "You need Microsoft Excel to use this function", _
       vbExclamation, "Print to Excel"
    Exit Function
End If
 
' open Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
 
' name the worksheet
    If Not WorkSheetName = "" Then wsXL.Name = WorkSheetName
 
' fill worksheet
'Skip first column
For intRow = 1 To TheRows
    For intCol = 2 To TheCols
        With TheFlexgrid
            wsXL.Cells(intRow, intCol - 1).Value = .TextMatrix(intRow - 1, intCol - 1) & " "
        End With
    Next
Next
 
' format the look
For intCol = 1 To TheCols
    wsXL.Columns(intCol).AutoFit
    'wsXL.Columns(intCol).AutoFormat (1)
Next
 
'wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, 1) & TheRows).AutoFormat GridStyle
 
Set objXL = Nothing
Screen.MousePointer = vbNormal
 
Exit Function
ErrorHandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, " [SaveFlexGridToExcel]"
End Function

Hope it helps.

Good Luck.

[jakeesgirl]

Here is my VB6 function where I can pass highlited part of a grid or whole thing to Excel.

Public Function SaveFlexGridToExcel(TheFlexgrid As MSFlexGrid, _
                             TheRows As Integer, TheCols As Integer, _
                             Optional GridStyle As Integer = 1, Optional WorkSheetName As String)
 
Dim objXL 'As New Excel.Application
Dim wbXL 'As New Excel.Workbook
Dim wsXL 'As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter
 
On Error GoTo ErrorHandler
 
Set objXL = CreateObject("Excel.Application.11")
 
If Not IsObject(objXL) Then
    MsgBox "You need Microsoft Excel to use this function", _
       vbExclamation, "Print to Excel"
    Exit Function
End If
 
' open Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
 
' name the worksheet
    If Not WorkSheetName = "" Then wsXL.Name = WorkSheetName
 
' fill worksheet
'Skip first column
For intRow = 1 To TheRows
    For intCol = 2 To TheCols
        With TheFlexgrid
            wsXL.Cells(intRow, intCol - 1).Value = .TextMatrix(intRow - 1, intCol - 1) & " "
        End With
    Next
Next
 
' format the look
For intCol = 1 To TheCols
    wsXL.Columns(intCol).AutoFit
    'wsXL.Columns(intCol).AutoFormat (1)
Next
 
'wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, 1) & TheRows).AutoFormat GridStyle
 
Set objXL = Nothing
Screen.MousePointer = vbNormal
 
Exit Function
ErrorHandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, " [SaveFlexGridToExcel]"
End Function

Hope it helps.

Good Luck.

Do you have anything in C#??