WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

ADO DAO
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Create an AutoIncrement Column in Access


cMDB = 'C:\Temp\FieldTest.mdb'
If FileExist(cMDB) Then FileDelete(cMDB)

adInteger = 3
adBoolean = 11
adVarWChar = 202

cConn="Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=%cMDB%;"

oCat = CreateObject("ADOX.Catalog")
oCat.Create(cConn)
oCat.ActiveConnection=cConn

oTable = CreateObject("ADOX.Table")
oTable.ParentCatalog = oCat
oTable.Name = "TESTADOX"

oTable.Columns.append("textfield",202,100)
oTable.Columns.append("logicalfield",11)
oTable.Columns.append("autofield",3)
oColumn = oTable.Columns("textfield")
oColumn = oTable.Columns("autofield")
oColumn.ParentCatalog = oCat
oProps = oColumn.Properties
;For xx = 0 to oProps.count-1
;      oItem = oProps.Item(xx)
;      Message(oItem.Name,oItem.TyPE)
;Next
oColumn.Properties("Autoincrement").Value = ObjectType( 'BOOL', 1 )
oColumn.Properties("Seed").Value = 20
oColumn.Properties("Increment") = 20


oCat.Tables.append(oTable)
oColumn=0
oTable=0

Article ID:   W17111
File Created: 2007:07:03:14:28:20
Last Updated: 2007:07:03:14:28:20