public.xbase++.activex
Create Microsoft Access Database with ActiveX
César Calvo hat geschrieben:I found the solution and is easy:
Code: Alles auswählen
PROCEDURE MAIN
LOCAL oAccess
IF FExists("D:\PRUEBA.accdb")
FErase("D:\PRUEBA.accdb")
ENDIF
// Create the "Access.Application" object
oAccess := CreateObject("Access.Application")
IF Empty( oAccess )
MsgBox( "Access is not installed" )
RETURN
ENDIF
oAccess:NewCurrentDatabase("D:\PRUEBA.accdb")
// Quit Access
oAccess:Quit()
oAccess:Destroy()
RETURN