VBA 获取ORACLE数据并显示

最新推荐文章于 2023-04-18 10:00:33 发布

Astpiy

最新推荐文章于 2023-04-18 10:00:33 发布

阅读量782

点赞数

文章标签： vba excel

本文链接：https://blog.csdn.net/Astpiy/article/details/109512223

版权

本文介绍了如何使用VBA在Excel中创建按钮，通过该按钮触发事件，从ORACLE数据库查询数据，并将结果处理后写入Excel表格，包括日期字符串的转换和格式化。

摘要由CSDN通过智能技术生成

初学版

EXCEL中添加按钮，按钮事件中调用方法

Sub Btn_Click()

Dim strCn As String      '字符串变量

strCnAP = "Provider = MSDAORA;Password=TEST;User ID=test;Data Source=test;Persist Security Info=True;" '链接字符串'

Call GetData(strCnAP, "TEST")

End Sub

将查询结果写入到EXCEL 包括字段，时间字符串处理

Private Sub GetData(strCn As String, shtname As String)

Dim cn As Object    '定义数据链接对象 ，保存连接数据库信息

Dim rs As Object    '定义记录集对象，保存数据表

Set cn = CreateObject("ADODB.Connection")  '创建数据链接对象

Set rs = CreateObject("ADODB.RecordSet")  '创建记录集对象，用于接收数据查询获得的结果集

Dim strSQL As String '字符串变量


strSQL = "select a.* from user a where a.status in ('A','L')"    '设置SQL语句


cn.Open strCn '打开连接

rs.Open strSQL, cn '读取数据库中的数据


Dim i As Integer, j As Integer, h As Integer, g As Int