Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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