搬家第25天-citectVBA连接sqlserver数据表，计算有多少条记录

前面的博客记录了连接excel、access数据表的方法，今天实验了一下连接sql server数据表，语句都是类似的。我在计算机上安装了sql server 2008R2 EXPRESS版本，也就是所谓的官方免费版本，连接数据库使用windows系统帐户和sql登录两种方式，给sa账户设置密码1234567。建立了一个数据库CitectDB，下面有一个数据表Rpt1。在cicode编辑器中写以下VBA脚本：

Sub ConnSQLServer()
Dim conn As Object
Dim strcon As string
Dim Ors As Object
Dim ocom As Object
Dim ssql As string
strcon ="Provider = SQLOLEDB.1;password = 1234567;user id = sa;Initial Catalog =CitectDB;Data Source =ES\SQLEXPRESS"
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

 

在页面题啊你啊一个按钮，按钮的鼠标点击事件写以下脚本：

civba call ConnSQLServer()

 

保存编译，运行项目程序点击按钮就会连接数据表，然后告诉表有多少条记录。