Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/jquery/89.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Javascript 将SQL Server表数据导出到excel、文本文件等_Javascript_Jquery_Vb.net - Fatal编程技术网

Javascript 将SQL Server表数据导出到excel、文本文件等

Javascript 将SQL Server表数据导出到excel、文本文件等,javascript,jquery,vb.net,Javascript,Jquery,Vb.net,我想从数据库中导出表,当我们点击按钮时,会弹出一个包含不同选项的窗口,如excel,文本文件等“确定”和“取消”按钮,用户可以使用单选按钮选择所需选项,一旦单击“确定”按钮,表格应根据其要求导出 Public Function GetExport() Dim cmd2 As SqlCommand = New SqlCommand Dim con = New SqlConnection ("server = PROG19-PC;database = paginate;Trusted_Conne

我想从数据库中导出表,当我们点击按钮时,会弹出一个包含不同选项的窗口,如excel,文本文件等“确定”和“取消”按钮,用户可以使用单选按钮选择所需选项,一旦单击“确定”按钮,表格应根据其要求导出

Public Function GetExport()
Dim cmd2 As SqlCommand = New SqlCommand
Dim con = New SqlConnection
  ("server = PROG19-PC;database = paginate;Trusted_Connection = yes")
cmd2.Connection = con
con.Open()

Dim da As New SqlDataAdapter("select * from tblMemberDetails", con)
Dim dtMainSQLData As New System.Data.DataTable()
da.Fill(dtMainSQLData)
Dim dcCollection As DataColumnCollection = dtMainSQLData.Columns

' Export Data into EXCEL Sheet
Dim ExcelApp As New Microsoft.Office.Interop.Excel.ApplicationClass()
ExcelApp.Application.Workbooks.Add(Type.Missing)

' ExcelApp.Cells.CopyFromRecordset(objRS);
For i As Integer = 1 To dtMainSQLData.Rows.Count
    For j As Integer = 1 To dtMainSQLData.Columns.Count
        If i = 1 Then
            ExcelApp.Cells(i, j) = dcCollection(j - 1).ToString()
        Else
            ExcelApp.Cells(i, j) = dtMainSQLData.Rows(i - 1)(j - 1).ToString()
        End If
    Next
Next

ExcelApp.ActiveWorkbook.SaveCopyAs("C:\test.xls")
ExcelApp.ActiveWorkbook.Saved = True
ExcelApp.Quit()
MsgBox("Data Exported Successfully into Excel File")

你的问题是什么?这个代码有效吗?如果没有,问题出在哪里?我想创建一个按钮,在单击时显示一个弹出窗口,带有不同的导出选项,它根据从窗口中选择的导出格式类型从数据库SQL server导出表,这是我尝试过的示例代码,不起作用。