1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Test" script:language="StarBasic">Option Explicit
'Option Compatible
Sub Main
'Application._RootInit()
_A2B_.CalledSub = ""
Application.SysCmd(acSysCmdRemoveMeter)
Dim a as variant, b as variant, c as variant, d as variant, i as integer, s as string,f as variant, h as variant, j as long, k as integer, l as integer, sFile As String
Dim lTime1 as Long, lTime2 as Long
lTime1=getsystemticks()
' TraceConsole()
_ErrorHandler(False)
traceconsole()
exit sub
CurrentDb().CloseAllrecordsets()
Set a = CurrentDb().TableDefs("Alltypes")
Set b = a.OpenRecordset( , , dbreadOnly)
Dim vVar() As Variant
Set vVar = b.GetRows(1000)
b.mClose()
DebugPrint UBound(vVar, 1), UBound(vVar, 2)
For i = 0 To UBound(vVar, 2)
For j = 0 To UBound(vVar, 1)
DebugPrint i, j, vVar(j, i)
Next j
Next i
lTime2=getsystemticks
debugprint lTime2 - lTime1
exit sub
End Sub
</script:module>
|
