PDA

Ver la Versión Completa : Como agregar un campo a una BD de access


principiante22
07-07-2007, 02:46:42
Como puedo agregar nuevos campos a una Base de datos de Access ya existente??

Hasta ahora tengo estos codigos

procedure TNCurso.Button2Click(Sender: TObject);
var
Table : _Table;
Catalog: _Catalog;
ConnectionString, databasename, nombre, estudiante:String;
begin
nombre:=edit1.Text;
mes:=edit2.text;
DATABASENAME := fichero+'\cursos\'+nombre+'.mdb';
Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DATABASENAME;
If FileExists(databaseName) Then
begin
Table := CreateCOMObject(StringToGUID('ADOX.Table')) as _Table;
table.Name:=mes;
Catalog.Tables.Append(Table);
Table.Columns.Append('Septiembre', adVarWChar, 128);
Table.Columns.Append('Octubre', adVarWChar, 128);
end;
end;

Donde fichero es la direccion donde se encuentran los archivos de Delphi.

delphi.com.ar
07-07-2007, 22:37:38
Te sirve hacerlo mediante SQL: ?
ALTER TABLE [TABLA]
ADD [CAMPO] [TIPO]

principiante22
07-07-2007, 23:53:26
hmmm

Pero donde puedo escribir codigos SQL ????

Caral
08-07-2007, 00:13:54
Hola
El codigo sql se escribe en conjuncion con los query.
Por ejemplo si colocas un query en el form (query1), este lo enlazas a la base de datos y puedes colocar la sentencia sql dentro del string del componente o por codigo, algo asi:
Esta es una sentencia sql simple:

Query1.sql.text:= ' select * from TuTabla';

No estoy muy seguro como colocar una sentencia como la que te indica delphi.com.ar, porque nunca lo he hecho, pero debe andar por ese lado.
Saludos

courtois
09-07-2007, 04:43:46
como dice caral, si lo pones en un query, lo ejecutas con el método ExecSQL o lo puedes ejecutar OnTheFly con el método Execute de tu conexión ADO

principiante22
09-07-2007, 16:20:08
Gracias por la ayuda, ya me funciono ;)