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