Access加载SQL server数据库列表

这个方法需要先引用 ADO

Dim cnn As new ADODB.Connection

Dim rst As new ADODB.Recordset
Dim strSQL As String

Dim strConnect As String
Dim strServer As String
Dim strUserName As String
Dim strPassWord As String

strServer = Me.txtServer
strUserName = Me.txtUserName
strPassWord = Me.txtPassword
strConnect = “Provider=SQLOLEDB;” _
& “User ID=” & strUserName & “;” _
& “Password=” & strPassWord & “;” _
& “Data Source=” & strServer & “;”
cnn.ConnectionString = strConnect
cnn.Open

strSQL = “select * from sys.databases “
Set rst = cnn.Execute(strSQL)
With Me.lstTableList
.RowSource = “”
rst.MoveFirst
Do While Not rst.EOF
.AddItem rst.Fields(“name”)
‘ Debug.Print rst.Fields(“name”)
rst.MoveNext
Loop
End With
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

Access加载SQL server数据库列表【Access软件 】