Kbase P43038: How to create Microsoft Access databases, tables and fields
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
23/09/2003 |
|
Status: Unverified
GOAL:
How to create Microsoft Access databases, tables and fields from 4GL?
FACT(s) (Environment):
Windows
FACT(s) (Environment):
Progress 9.x
FIX:
The following code demonstrates how to create Microsoft Access databases, tables and fields from 4GL:
DEFINE VARIABLE hAccess AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hdbs AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE htdf AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hfld AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE strDB AS CHARACTER NO-UNDO.
DEFINE VARIABLE DB_Text AS INTEGER NO-UNDO INITIAL 10.
DEFINE VARIABLE hfldLen AS INTEGER NO-UNDO INITIAL 40.
DEFINE VARIABLE lResult AS LOGICAL NO-UNDO.
/* Initialize string to database path */
strDB = "C:\WRK91D\Newdb.mdb".
/* Create instance of Microsoft Access */
CREATE "Access.Application" hAccess.
/* Open database in Microsoft Access window */
ASSIGN
lResult = hAccess:NewCurrentDatabase(strDB).
/* Get Database object variable */
ASSIGN
hdbs = hAccess:CurrentDb.
/* Create new table */
ASSIGN
htdf = hdbs:CreateTableDef("Customer").
/* Create field in new table */
ASSIGN
hfld = htdf:CreateField("Name", DB_Text, hfldLen).
/* Append Field and TableDef objects */
ASSIGN
lResult = htdf:Fields:Append(hfld)
lResult = hdbs:TableDefs:Append(htdf).
RELEASE OBJECT hAccess.
RELEASE OBJECT hdbs.
RELEASE OBJECT htdf.
RELEASE OBJECT hfld.