VBA编程之ODBC连接数据库

VBA编程之ODBC连接数据库创价学会

下⾯的例⼦展⽰了在VBA中使⽤ODBC连接数据库并获取数据，填充⼯作表内容。

使⽤前要先在sheet名字上点右键，选择查看代码，进⼊VBA编辑模式：

第⼀次⽤的时候要在VBA编辑窗⼝点击⼯具–引⽤，勾选：Microsoft ActiveX Data Objects x.x Library。

含片

然后输⼊如下代码，即可对Excel的“名字”⼯作表按SQL Server中的test数据库中的user表数据进⾏填充。数据库可⼀⽤SQL Server，也可以⽤MySQL，但是使⽤之前，要先运⾏"odbcad32"回车，配置dsn。

Sub copyDatabaseToSheet()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sheet As Object

Set sheet = Sheets("名字")

'配置连接串

conn.ConnectionString ="DSN=test;DB=test;UID=sa;PWD=11;"

conn.Open

' 取出数据

rs.Open "select* from [user]", conn

电动升降机构>雾凇大桥' 设置表头

西洛卓玛sheet.Range("A1:E1").Value =Array("ID", "⽤户名", "密码", "创建时间", "修改时间")

' 拷贝数据,

sheet.Range("A2").CopyFromRecordset rs

'关闭连接

燃气的互换性

rs.Close:Set rs =Nothing

conn.Close:Set conn =Nothing

End Sub

本文发布于:2024-09-21 20:49:26，感谢您对本站的认可！

标签：编辑连接填充数据库时间数据大桥

留言与评论（共有 0 条评论）