EtCell组件通过VBScript ADO进行数据库查询的例子

WTM1

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