XProfan

-Begin-----------------------------------------------------------------
 $U Cheetah2.Unit.pcu
-Occupy resources----------------------------------------------------
xdbUseDLL
-Declare variables---------------------------------------------------
Declare FileName$, hdb&, Loop$, Adress&, Data$
FileName$ = "Test.dbf"
-Create string with data---------------------------------------------
Randomize

WhileLoop 1, 4096, 1

    Data$ = Data$ + @Chr$(@Rnd(96) + 31)

EndWhile

-Create database-----------------------------------------------------
xdbCreate(@Addr(FileName$), "ID,N,9,0;MEMO,M,10,0")
-Open database-------------------------------------------------------
hdb& = xdbOpen(@Addr(FileName$), "")
-Add 20000 records with data-----------------------------------------

WhileLoop 1, 20000, 1

    xdbClearBuffer(hdb&)
    Loop$ = @Str$(&Loop)
    xdbAssignField(hdb&, "ID", 0, @Addr(Loop$))
    xdbAssignField(hdb&, "MEMO", 0, @Addr(Data$))
    xdbAppendRecord(hdb&)

EndWhile

---------------------------------------------------------------------
Print
Print "Press any key to exit..."
WaitKey
-Close database------------------------------------------------------
xdbClose(hdb&)
-Free resources------------------------------------------------------
xdbFreeDLL
-End-------------------------------------------------------------------
End

-Begin-----------------------------------------------------------------
 $I DbgView.inc
 $U Cheetah2.Unit.pcu
-Occupy resources----------------------------------------------------
xdbUseDLL
-Declare variables---------------------------------------------------
Declare FileName$, hdb&, Data$, RecNo&
FileName$ = "Test.dbf"
-Open database-------------------------------------------------------
hdb& = xdbOpen(@Addr(FileName$), "")
-Performance test----------------------------------------------------
Randomize

WhileLoop 1, 200, 1

    RecNo& = @Rnd(19999) + 1
    DbgPrint "Go " + @Str$(RecNo&)
    xdbGetRecord(hdb&, RecNo&)
    Data$ = xdbFieldValue(hdb&, "MEMO", 0)
    DbgPrint "Ready"

EndWhile

-Close database------------------------------------------------------
xdbClose(hdb&)
-Free resources------------------------------------------------------
xdbFreeDLL
-End-------------------------------------------------------------------
End

print sqlinit(("Driver={SQL Server};Server=ragnar3;UID=sa;PWD=;Database=ordicomdb;"))
declare data$
Randomize
data$ = mkstr$("ABCD",1000)

WhileLoop 1, 4096, 1

    Data$ = Data$ + @Chr$(@Rnd(96) + 31)

EndWhile

data$ = translate$(data$,"","")
sqlexec "drop table test",0
sqlexec "create table test (autoinc int identity, text varchar(5000))",0
print data$
cls

whileloop 1,20000

    locate 0,0
    print &loop
    sqlexec "insert into test (text) values ("+Data$+") ",1
    clearlist

endwhile

decimals 0
declare time&
time& = &gettickcount

whileloop 1,100

    clearlist
    sqlexec "select text from test where autoinc = "+str$(rnd(19999)+1),1
    data$ = listboxitem$(2)

endwhile

print "time: ",(&gettickcount-time&)/100
waitinput
print data$
sleep 1000

-Begin-----------------------------------------------------------------
-External functions--------------------------------------------------
Def @OutputDebugStringA(1) !"KERNEL32.DLL", "OutputDebugStringA"
Def @OutputDebugStringW(1) !"KERNEL32.DLL", "OutputDebugStringW"
Def @OutputDebugString(1) !"KERNEL32.DLL", "OutputDebugStringA"
-Procedure DbgPrint--------------------------------------------------

Proc DbgPrint

    Parameters PrintString$
    PrintString$ = PrintString$ + @Chr$(0)
    @OutputDebugStringA(@Addr(PrintString$))

EndProc

-Procedure DbgOut----------------------------------------------------

Proc DbgOut

    Parameters PrintString$
    DebugOut 1, PrintString$

EndProc

-Procedure DbgStop---------------------------------------------------

Proc DbgStop

    @Set("DebugMode", 2)

EndProc

-Procedure DbgGo-----------------------------------------------------

Proc DbgGo

    If %PCount = 0

        @Set("DebugMode", 0)

    Else

        Parameters Mode&
        @Set("DebugMode", Mode&)

    EndIf

EndProc

-Procedure DbgAssert-------------------------------------------------

Proc DbgAssert

    Parameters Condition&

    If Condition&

        @Set("DebugMode", 2)

    EndIf

EndProc

-End-------------------------------------------------------------------