|
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
|
|