Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: Jan 2007
Posts: 771
Poder: 12
Angel.Matilla Va por buen camino
Question Acces y tablas

Buenas. Por primera vez en todos mis años de progración tengo que conectarme a una base de datos Access. He estado mirando y el concepto de como conectarse creo que me ha quedado claro: ADOConnection, ADOTable, etc.


Pero me ha surgido una duda a la que no he sido capaz de encontrar respuesta: ¿Cómo puedo saber qué tabls forman parte de esa base de datos? Sé que podría poner "a pedal" la lista de tablas por ejemplo en un vector AnsiString, pero no hay ¿forma de hacer como un dir de las tablas que forma parte de dicha BB.DD.?
Responder Con Cita
  #2  
Antiguo 11-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: Jan 2007
Posts: 771
Poder: 12
Angel.Matilla Va por buen camino
Vale. Ya he visto como se hace. Perdonad por las molestias.
Responder Con Cita
  #3  
Antiguo 11-05-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.099
Poder: 30
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.

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 0AC->DataSetCounti++)
  {
    
ListBox1->Items->Add(AC->DataSets[i]->Name);
    
ListBox1->Items->Add("-----------------------------");
    for (
int j 0AC->DataSets[i]->FieldCount++)
      
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
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 11-05-2018 a las 19:35:21. Razón: agregar código delphi
Responder Con Cita
  #4  
Antiguo 14-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: Jan 2007
Posts: 771
Poder: 12
Angel.Matilla Va por buen camino
Muchas gracias por ese cóidigo.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
DBChart y Tablas Acces Walter Gráficos 2 08-08-2013 23:25:26
¿Hay alguna manera de hacer una base de datos en red con tablas acces? nmenna10 Conexión con bases de datos 13 25-06-2012 17:00:49
Join De Tres Tablas Con Acces MAGRANA SQL 2 01-07-2004 17:51:44
Acces Violation eduarcol Impresión 10 23-01-2004 19:03:18
y en acces? superhopi SQL 2 20-05-2003 13:23:48


La franja horaria es GMT +2. Ahora son las 09:28:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi