Ver Mensaje Individual
  #2  
Antiguo 29-08-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola ginkaku.

No sé si interpreté bién tu consulta pero te pongo un ejemplo muy simple de creación y asociación de un TADOConnection, un TADOTable, TDataSource y finalmente un TDBGrid para mostrar los datos.

Uso para el ejemplo la tabla Country de bcdemos.mdb que viene con C++ Builder.

Código:
...
  TADOConnection *AC;
  TADOTable      *AT;
  TDataSource    *DS;
  TDBGrid        *GR;


void __fastcall TForm1::FormCreate(TObject *Sender)
{
  AC = new TADOConnection(this);
  AT = new TADOTable(this);
  DS = new TDataSource(this);
  GR = new TDBGrid(this);

  // armar cadena de conexión 
  String s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
  String s2 = "C:\\Program Files\\Common Files\\Borland Shared\\Data\\bcdemos.mdb";
  String s3 = ";Persist Security Info=False;";
  String StrConnect = s1 + QuotedStr(s2) + s3;

  // ADOConnection
  AC->CommandTimeout    = 30;
  AC->ConnectionString  = StrConnect;
  AC->ConnectionTimeout = 15;
  AC->ConnectOptions    << TConnectOption(coConnectUnspecified);
  AC->CursorLocation    << TCursorLocation(clUseClient);
  AC->IsolationLevel    << TIsolationLevel(ilCursorStability);
  AC->KeepConnection    = true;
  AC->LoginPrompt       = false;
  AC->Mode              = cmShareDenyNone;
  AC->Name              = "ADOConnect1";
  AC->Provider          = "Microsoft.Jet.OLEDB.4.0";
  AC->Connected         = true;

  // ADOTable
  AT->Connection = AC;
  AT->TableName  = "Country";
  //...
  AT->Open();

  // DataSource
  DS->DataSet    = AT;
  DS->Enabled    = true;
  DS->AutoEdit   = true;
  // ...

  // DBGrid
  GR->Parent     = this;
  GR->Top        = 10;
  GR->Left       = 10;
  GR->Width      = 800;
  GR->Height     = 400;
  GR->DataSource = DS;
  //...
}

...

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete AC;
  delete AT;
  delete DS;
  delete GR;
}
Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita