用vba编写连接云服务器的SQLServer的代码
时间: 2023-05-24 12:01:27 浏览: 208
这是一段可以用 VBA 连接云服务器的 SQL Server 的代码:
Sub ConnectSqlServer()
Dim cn As New ADODB.Connection
Dim serverName As String
Dim dbName As String
Dim userName As String
Dim password As String
'设置连接字符串
serverName = "xxxxxxx.database.chinacloudapi.cn"
dbName = "databaseName"
userName = "username"
password = "password"
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=" & serverName & ";Initial Catalog=" & dbName & ";User ID=" & userName & ";Password=" & password
'打开连接
cn.Open
'查询数据
Dim sql As String
sql = "SELECT * from TableName"
Dim rs As New ADODB.Recordset
rs.Open sql, cn
'输出数据
If Not rs.BOF And Not rs.EOF Then
Do While Not rs.EOF
Debug.Print rs.Fields("FieldName").Value
rs.MoveNext
Loop
End If
'关闭连接
rs.Close
cn.Close
End Sub