如何将数据从sql-server2008导入到Visual Studio Express 2013中

我的代码有点问题

我想打开一个Excel文件，并将数据从SQL Server 2008导入到Excel领域..

你能帮我的代码？ 即时通讯使用Visual Studio Express 2013的Windows桌面和SQL Server 2008作为数据库..

这是我的代码

Imports System.Data Imports System.Data.SqlClient Imports excel = Microsoft.Office.Interop.Excel Public Class F_Tunggal Private Sub cmdproses_Click(sender As Object, e As EventArgs) Handles cmdproses.Click Dim xlApp As excel.Application Dim i, j As Integer Dim xlWorkBook As excel.Workbook Dim xlWorkSheet As excel.Worksheet Dim xlRange As excel.Range Dim misValue As Object = System.Reflection.Missing.Value Dim sql As String con = New SqlConnection(connection) 'con, cmd, connection, i already public declare at 1 module..' cmd = New SqlCommand() con.Open() cmd.Connection = con xlApp = New excel.Application xlApp.Workbooks.Open("C:\Book1.xlsx") xlWorkBook = xlApp.Workbooks(1) xlWorkSheet = xlWorkBook.Worksheets(1) sql = "select [Data] from [Statistik].[dbo].[T_DataTunggal] Where [Kode_Project]= '" + kodeproject + "'" Dim dscmd As New SqlDataAdapter(sql, con) Dim ds As New DataSet dscmd.Fill(ds) For i = 0 To ds.Tables(0).Rows.Count - 1 For j = 0 To ds.Tables(0).Columns.Count - 1 xlWorkSheet.Cells(i + 2, j + 1) = ds.Tables(0).Rows(i).Item(j) Next Next xlWorkBook.SaveAs("C:\test.xlsx") xlWorkBook.Close() xlApp.Quit() releaseobject(xlApp) releaseobject(xlWorkBook) releaseobject(xlWorkSheet) con.Close() MsgBox("you can find the file C:\test.xlsx") Catch ex As Exception End Try 

从上面的代码..我得到一个错误：xlWorkBook.SaveAs（“C：\ test.xlsx”）

当我去驱动器C：\find保存的文件，我没有find它..

请帮助我对不起，如果我的英语如此糟糕.. thx ..

Answer 1

通常在客户端系统上，我们没有权限在C：中创build文件。 这是pipe理员的权利，安装或卸载任何软件，所以pipe理员有这个权限，而不是关联使用系统。 如果可能，请尝试更改驱动器或尝试将信息保存到您的dekstop（如C：\ Users \ XXXX \ Desktop，其中XXXX将是您的用户ID）或文档文件夹，因为它们是为用户定义的。