Problemas al Crear MDB con Access

[Blackspike]

Buenos dias, tengo un problema con delphi 7, estoy haciendo una aplicacion, donde hay unas empresas y cada empresa puede tener unos años, cada año es una base de datos mdb. El problema que tengo es que cuando genero la Base de Datos MDB no se como poner el campo clave. Espero que alguien me pueda ayudar.
Os paso lo que tengo puesto en el codigo. Gracias de antemano.

Código Delphi [-]
 
procedure TfrmEmpresas.CrearMDB(ruta: string);
var
  Catalogo:_Catalog;
  Tabla:_Table;
  DS:String;
begin
    Catalogo:=CreateComObject(StringToGUID('ADOX.Catalog')) as _Catalog;
    DS:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source = '+ruta;
    if FileExists(ruta) then DeleteFile(ruta);
    Catalogo.Create(DS);
    Tabla:=CreateComObject(StringToGUID('ADOX.Table')) as _Table;
    Tabla.Name:='Acabados';
    Catalogo.Tables.Append(tabla);
{campo clave}    Tabla.Columns.Append('Codigo',varInteger,4);
    Tabla.Columns.Append('Descripcion',adVarWChar,50);
    Tabla:=CreateComObject(StringToGUID('ADOX.Table')) as _Table;
    Tabla.Name:='Articulos';
    Catalogo.Tables.Append(tabla);
{campo clave}    Tabla.Columns.Append('Codigo',adVarWChar,15);
    Tabla.Columns.Append('Descripcion',adVarWChar,255);
    Tabla.Columns.Append('Coste',varInteger,255);
    Tabla.Columns.Append('Venta',varInteger,255);
    Tabla.Columns.Append('Tipo',varInteger,255);
end;

[waly2k1]

Núnca creé una BD de esta manera, pero lo que propones podés hacerlo mediante un Alter Table
Así:
Ya sea por un TAdoQuery, TQuery o lo que mas te guste.

sSQL :String;
sSQL := 'ALTER TABLE Articulos ADD CONSTRAINT NombrePK PRIMARY KEY (Codigo)';

Donde NombrePK es el nombre (Opcional sino poné PRIMARYKEY a todas y listo) y entre paréntesis los campos que incluyen en la PK.

Query.SQL.Text := sSQL;
Query.Execute;

Ojo fijate bien la sintaxis del Query, ya que no tengo Delphi acá, como para probar y darte un ejemplo válido. Pero ha de funcionar.

Salu2 y espero te sirva mi Rta.
Walter


Juás acá me robé un pedazo de código de un execute hihi
con lo cual te quedará así:
Query1.Sql.Clear;
Query1.Sql.Text := sSQL;
Query1.ExecSQL;

No puedo probarlo.

[[fjcg02]]

Igual te resulta más fácil copiar un mdb vacío, o el del último año, vaciar las tablas qu necesites y compactarla.

Sólo tienes que probarlo.

Un saludo

[Neftali [Germán.Estévez]]

Creo que puedes utilizar el objeto 'ADOX.Key' para añadir la clave primaria a la tabla.
Revisa esta página; Aquí puedes ver un ejemplo de cómo se hace para crear una clave primaria, una clave foránea y algunas cosas más.

De todas formas, creo (como ya te han dicho) que es más sencillo si creas la SQL y la lanzas con un ADOQuery para crear la tabla.

[Gagiel]

Hola,

Me estoy valiendo de vuestras ayudas
he seguido los consejos para crear una bd nueva y llenarla con tablas y formularios.
El tema esta en que quiero crear una tabla con autoindex y autonumerica (incrementalmente)
Buscando por msdn he encontrado las funciones para crear las bd en access pero al ponerle la propiedad 'Autoincrement' me dice delphi k eso no existe.

Os pongo un trozo del codigo.

Tabla.Columns.Append('Ordre',adInteger, 255);
Tabla.Columns.Item['Ordre'].Properties.AutoIncrement := True;

[waly2k1]

En sentencias SQL debes usar identity Not Null. Fijate la sintaxis porque además podés especificar de cuanto en cuanto va el autoincremental.