Can I get sample codes for creation of access mdb file?
for example ,I want to make a table into a mdb database by code using vfp(visual foxpro).
I wait a happy respond.
My email: [email protected]
Try this
#define dbLogical 1
#define dbNumber 2
#define dbInteger 3
#define dbLongInteger 4
#define dbCurrency 5
#define dbSingle 6
#define dbDouble 7
#define dbDateTime 8
#define dbBinary 9
#define dbText 10
#define dbOLEObject 11
#define dbMemo 12
#define dbReplication 15
#define dbDecimal 16
if file("C:\accesstest.mdb")
delete file c:\accesstest.mdb
endif
public oAccess
oAccess = createobject("Access.application")
oAccess.visible= .t.
newMDB = oAccess.NewCurrentDatabase("C:\accesstest")
newtable = oAccess.CurrentDb.CreateTableDef('testtable')
with newtable
.fields.append(.CreateField("Field1", dbLogical))
.fields.append(.CreateField("Field2", dbNumber))
.fields.append(.CreateField("Field3", dbInteger))
endwith
oAccess.CurrentDb.TableDefs.append( newtable)
dbc2Convert = "\\tpdfiles\data\dfreeman\tip\data\rta\rta"
open database (dbc2convert)
dbgetprop(rta,"table",)
After it runs you will need to close the MDB and reopen it.
1,175 views
Usually answered in minutes!
Can I get sample codes for creation of access mdb file?
for example ,I want to make a table into a mdb database by code using vfp(visual foxpro).
I wait a happy respond.
My email: [email protected]
×