Acces y tablas

[Angel.Matilla]

Vale. Ya he visto como se hace. Perdonad por las molestias.

[ecfisa]

Hola.

Me alegro que encontraras como hacerlo .

Adjunto un ejemplo para aquellos que buscasen solución en este mensaje, el ejemplo se basa en un TADOConnection y tres TADOTables y para la cadena de conexión uso las tablas de demostración que traen Delphi y C++ Builder:

Delphi:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
    'C:\\Program Files (x86)\\Common Files\\Borland Shared\\Data\\bcdemos.mdb;'+
    'Persist Security Info=False;';

  ADOConnection1.Connected := True;

  ADOTable1.Connection := ADOConnection1;
  ADOTable1.TableName := 'country';
  ADOTable1.Open;

  ADOTable2.Connection := ADOConnection1;
  ADOTable2.TableName  := 'customer';
  ADOTable2.Open;

  ADOTable3.Connection := ADOConnection1;
  ADOTable3.TableName  := 'employee';
  ADOTable3.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
begin
  ListBox1.Clear;
  for i := 0 to ADOConnection1.DataSetCount-1 do
  begin
    ListBox1.Items.Add(ADOConnection1.DataSets[i].Name);
    ListBox1.Items.Add('-----------------------------');
    for j := 0 to ADOConnection1.DataSets[i].FieldCount-1 do
      ListBox1.Items.Add(ADOConnection1.DataSets[i].Fields[j].FieldName);
    ListBox1.Items.Add('');
  end;
end;

C++ Builder:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TADOConnection *AC = static_cast<TADOConnection*>(ADOConnection1);

  AC->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="\
    "C:\\Program Files (x86)\\Common Files\\Borland Shared\\Data\\bcdemos.mdb;"\
    "Persist Security Info=False;";

  AC->Connected = true;

  ADOTable1->Connection = AC;
  ADOTable1->TableName  = "country";
  ADOTable1->Open();


  ADOTable2->Connection = AC;
  ADOTable2->TableName  = "customer";
  ADOTable2->Open();

  ADOTable3->Connection = AC;
  ADOTable3->TableName  = "employee";
  ADOTable3->Open();

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TADOConnection *AC = static_cast<TADOConnection*>(ADOConnection1);
  ListBox1->Clear();
  for(int i = 0; i < AC->DataSetCount; i++)
  {
    ListBox1->Items->Add(AC->DataSets[i]->Name);
    ListBox1->Items->Add("-----------------------------");
    for (int j = 0; j < AC->DataSets[i]->FieldCount; j ++)
      ListBox1->Items->Add(AC->DataSets[i]->Fields->Fields[j]->FieldName);
    ListBox1->Items->Add("");
  }
} 


Todas las asignaciones que fueron echas en tiempo de ejecución se pueden hacer en tiempo de diseño desde el Object Inspector.

Resultado:


Saludos

[Angel.Matilla]

Muchas gracias por ese cóidigo.