搬家第24天-citect V7.4 CITECTVBA 通过ADO连接ACCESS数据库,计算表记录数
前面的博客记录过使用cicode通过ODBC连接ACCESS数据库,其实使用CitectVBA也能连接。本篇记录如何使用citectVBA脚本通过ADO方式连接ACCESS数据库,并且得到数据表记录数。其实了解了数据库连接写法,取得记录和字段值就相对容易了。
假设有一个myaccess数据库,下面有一个myreport数据表,数据表有147个记录。在citectVBA编辑器添加以下脚本:
Sub ConnAccesDB()
Dim conn As Object
Dim strcon As string
Dim Ors As Object
Dim ocom As Object
Dim ssql As string
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CitectPrj\MSHFGRID\mydatabase.mdb; Jet OLEDB:Database Password="
ssql="select * from myreport"
Set conn=CreateObject("ADODB.Connection")
conn.connectionstring=strcon
conn.Cursorlocation=3
conn.open
Set ors=CreateObject("ADODB.RecordSet")
Set ocom=CreateObject("ADODB.Command")
ocom.commandtype=1
Set ocom.ActiveConnection=conn
ocom.CommandText=ssql
Set ors=ocom.Execute
msgbox Ors.recordcount
Set ors=Nothing
conn.close
Set conn=Nothing
End Sub
需要注意的是那几个数据库链接有关的变量,定义的时候一定需要写清楚as object,不然编译会报错。
在页面的按钮鼠标点击事件中添加以下代码:
civba call ConnAccesDB()
保存、编译、运行,点击按钮就会弹出提示框,显示记录数147