Excel的VBA连接数据库⽅法
Sub GetData()
Dim strConn As String, strSQL As String
Dim conn As ADODB.Connection
Dim ds As ADODB.Recordset
Dim col As Integer
'清空电⼦表格的所有数据
Cells.Clear
'连接数据库的字符串
strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;Initial Catalog=dataname;Data Source=servername"
'查询语句
strSQL = "select * from table1"
Set conn = New ADODB.Connection
Set ds = New ADODB.Recordset
'打开数据库连接
conn.Open strConn
With ds
'根据查询语句获得数据
vba数据库编程.Open strSQL, conn
'⾃动控制加⼊所有列标题
For col = 0 To ds.Fields.Count - 1
'请注意Offset(0, col)中的参数⼀定要正确噢
Range("A1").Offset(0, col).Value = ds.Fields(col).Name
Next
'加⼊所有⾏数据
Range("a1").Offset(1, 0).CopyFromRecordset ds
End With
'以下是关闭数据库连接和清空资源
Set ds = Nothing
conn.Close
Set conn = Nothing
End Sub
做完上⾯的模块后，要调⽤它就要加⼊⼀个事件:
'我这个是加⼊⼀个⼯作薄打开时就运⾏GetData⽅法，也就是⾃动加载数据
Private Sub Workbook_Open()
Application.Run "GetData"
End Sub
这个例⼦再适当的改⼀下，就可以打开所有数据库了。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。