VBA用户表单的SQL源

Question

我正在努力为VBA ListBox用户窗体建立SQL连接/源。 我已经能够将正确的sql表导入到excel工作表中（从下面的代码中），但是到目前为止，我所有尝试加载与列表框的源相同的数据都失败了。 下面的代码是给我我的同事的，并适合我们的数据库。

Sub SQL_VBA()

Dim sConn As String
Dim oQt As QueryTable
Dim sSql As String

'defining the connection string

sConn = "ODBC;DSN=RISK_DB;UID=;PWD=;"
sConn = sConn & "WSID=;DATABASE=RISK_DB"

sSql = str_SQLText

Set oQt = Sheet1.QueryTables.Add(Connection:=sConn, Destination:=Sheet1.Range("A1"), Sql:=sSql)

With oQt
.Name = "Query from"
.FieldNames = True '' This returns the headers of the tables you need
.RowNumbers = False
.PreserveFormatting = True
.RefreshOnFileOpen = False '' Dont want to refresh file each time it opens
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=True

End With

End Sub

有没有人有过将SQL表作为用户表单的数据源加载的经验？

Answer 1

我认为这将回答您的问题。

如果您还有其他问题，请发表评论。