Ver Mensaje Individual
  #1  
Antiguo 07-07-2007
Avatar de principiante22
principiante22 principiante22 is offline
Miembro
 
Registrado: nov 2006
Ubicación: Santo Domingo - Rep.Dom.
Posts: 90
Reputación: 18
principiante22 Va por buen camino
Como agregar un campo a una BD de access

Como puedo agregar nuevos campos a una Base de datos de Access ya existente??

Hasta ahora tengo estos codigos

Código Delphi [-]
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.
Responder Con Cita