搬家第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