将值从SQL Server导入到Excel

我无法将值从SQL Server导入到Excel。 有人可以帮忙:

Dim oConn As ADODB.Connection Private Sub ConnectDB() Set oConn = New ADODB.Connection oConn.Open "Provider=SQLOLEDB; " & _ "Data Source=ServerName; " & _ "Initial Catalog=MyDB;" & _ "Trusted_Connection=yes;" End Sub Public Sub ExportDataToDB() Dim rs As ADODB.Recordset ConnectDB Set rs = New ADODB.Recordset Dim strSql As String strSql = "select t.col1, t.col2 from Table t" rs.Open strSql, oConn Sheet1.Range("A2").CopyFromRecordset rs CloseDBConn End Sub Private Sub CloseDBConn() oConn.Close End Sub 

连接成功。 没有错误。 查询不是空的,但是没有任何东西返回到工作表中。

如果您只想从数据库中读取一组logging,例如将logging的当前状态写入工作表,则应将ADODB.RecordSet CursorType属性指定为adOpenStatic以下是Microsoft文档的链接: https://docs.microsoft.com/en-us/sql/ado/guide/data/types-of-cursors-ado