Código Delphi [-] ... Col := CreateOLEObject('ADOX.Column'); Col.ParentCatalog := Cat; Col.Name := sKey; Col.Type := adInteger; Col.Properties('Autoincrement') := True; Table.Columns.Append(Col);
... Col := CreateOLEObject('ADOX.Column'); Col.ParentCatalog := Cat; Col.Name := sKey; Col.Type := adInteger; Col.Properties('Autoincrement') := True; Table.Columns.Append(Col);