Excel的VBA连接数据库方法

  • 格式:pdf
  • 大小:41.40 KB
  • 文档页数:1

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

'根据查询语句获得数据

.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

这个例⼦再适当的改⼀下,就可以打开所有数据库了。