XProfan

 $P+
Set("ErrorLevel",0)
Def GetSysColor(1) !"USER32","GetSysColor"
Def RunControl(2) WinExec(("RUNDLL32 SHELL32.DLL,Control_RunDLL " + $(1) + ".CPL ") + $(2),1)

Proc OnApplicationExit

EndProc

Proc OnApplicationInit

EndProc

OnApplicationInit
Declare appexit%
Declare Button1&
Set("TrueColor",1)
WindowStyle $003F
WindowTitle "ODBC"
Window %maxX + 5,114 - 498,415
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
Button1&=CreateButton(%hwnd,"ODBC...",164,178,162,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf Clicked(Button1&)

        RunControl("odbccp32","")

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Hilfe

    EndIf

Wend

OnApplicationExit

window 500,500
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var Engine&=ocxCreate("JRO.JetEngine")
var mdb$="C:\Test.mdb"
var tmp$="C:\Temp.mdb"
mdb$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+mdb$
tmp$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+tmp$+";Jet OLEDB:Engine Type=5"
ocxMethod(Engine&,"CompactDatabase",mdb$,tmp$)
ocxRelease(Engine&)
ocxDeInit()
print "Fertig"
waitkey

window 500,500
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var mdb$="C:\Test.mdb"
var Connection&=ocxCreate("ADODB.Connection")
var Connection$="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+mdb$
ocxMethod(Connection&,"Open",Connection$)
var Properties&=ocxGet(Connection&,"Properties")
var Type&=ocxGet(Properties&,"Item","Jet OLEDB:Engine Type")
print "Engine Type: ",ocxGet(Type&,"Value")
ocxRelease(Type&,Properties&,Connection&)
ocxDeInit()
waitkey
end