gpt4 book ai didi

sql - 如何使用 Visual Studio Express 2013 从 sql-server 2008 导入数据到 excel

转载 作者:行者123 更新时间:2023-12-04 21:05:23 24 4
gpt4 key购买 nike

我的代码有点问题..

我想打开一个 excel 文件并将数据从 sql server 2008 导入到 excel 字段..

你能帮我写代码吗??我使用visual studio express 2013 for windows desktop和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:\查找保存的文件时,我没有找到它..

请帮我
对不起,如果我的英语这么差..
谢谢..

最佳答案

通常在客户端系统上,我们没有权限在 C: 中创建文件。安装或卸载任何软件是管理员权限,因此管理员拥有此权限,而不是使用系统的相关人员。如果可能,请尝试更改您的驱动器或尝试将信息保存在您的桌面(例如 C:\Users\XXXX\Desktop,其中 XXXX 将是您的用户 ID。)或文档文件夹,因为它们是为用户定义的。

关于sql - 如何使用 Visual Studio Express 2013 从 sql-server 2008 导入数据到 excel,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22401574/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com