Office中国论坛/Access中国论坛

标题: EtCell组件通过VBScript ADO进行数据库查询的例子 [打印本页]

作者: WTM1 时间: 2002-9-29 01:45
标题: EtCell组件通过VBScript ADO进行数据库查询的例子
Dim filePath
filePath = "e:\db1.mdb"
Set Conn =CreateObject("ADODB.Nonnection")
Conn.Open "

rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' 创建数据库对象
Set Rs =CreateObject("ADODB.Recordset")
Rs.Open "SELECT * FROM UserInfo", Conn, adOpenStatic

Dim intRows,avarRecords,intRecord
intRows=10000
avarRecords = Rs.GetRows(intRows)

'取出数据库表的字段名字
Dim FieldCount
FieldCount = Rs.Fields.Count
For i = 1 To Rs.Fields.Count
If i >= EtCell.GetColCount() Then
EtCell.InsertCol i
End If
aa = Rs(i-1).Name
EtCell.SetCell 1,i,aa
Next

'通过线程进行设置报表的单元格值
EtCell.ThreadSetCell((avarRecords))

'关闭ADO的数据连接
Rs.Close
Conn.Close

'刷新显示
EtCell.Redraw

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)