![]() |
|
#4
|
||||
|
||||
![]() Лучше всего создавать Акцесовскую БД с помощью ADOX.
Выглядит это примерно так: Код:
Const adVarWChar = 202; Var Mdb,Tbl: Variant; begin Mdb := CreateOleObject('ADOX.Catalog'); Mdb.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\demo.mdb'); Tbl := CreateOleObject('ADOX.Table'); Tbl.Name := 'DemoTable'; Tbl.ParentCatalog := Mdb; Tbl.Columns.Append('DemoAutoIncField', adInteger); Tbl.Columns['DemoAutoIncField'].Properties['AutoIncrement'].Value := True; Tbl.Columns.Append('DemoTextField', adVarWChar, 50); Mdb.Tables.Append(Tbl); end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |