Ver Mensaje Individual
  #5  
Antiguo 21-01-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Hola.

Puedes acceder a Tablas de DBase utilizando ADO. Y crearlas también.

(1) Crea un TADOConnection con la siguiente cadena de conexion:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=r:\;Persist Security Info=False;Extended properties=DBASE IV;

(2) Coloca un TADOTable que apunte a la conexion anterior.

(3) Crea un TDatasource y un TDBGrid conectados a los anteriores para ver el resultado.

Para crear la tabla puedes usar algo como esto:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  ADOCommand : TADOCommand;
begin
  ADOCommand := TADOCommand.Create(nil);
  ADOCommand.Connection := ADOConnection1;
  ADOCommand.CommandText := 'Create Table Test (TestField1 char(64), TestField2 integer)';
  ADOCommand.Execute;
  ADOCommand.Free;

  //Conectar
  ADOTable1.TableName := 'test';
  ADOTable1.Open;
end;

El resultado:

__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita