Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como puedo ver las tablas que contiene una base de datos (https://www.clubdelphi.com/foros/showthread.php?t=53492)

kurono 21-02-2008 20:09:55

como puedo ver las tablas que contiene una base de datos
 
hola amigos del foros como estan les cuento que estoy haciendo una aplicacion que me permite conectarme a cualquier base de datos access y mediante un edit pongo la tabla que quiero revisar o ver y me la muestra en un dbgrid todo funciona a la perfecion pero me gustaria q en ves de poner el nombre de la tabla que quiero ver me la muestre en un combobox una ves me conecto a la base de datos a qui les expongo mi codigo para que se guien

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if open.Execute then
txt1.Text:=open.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
enlace.conexion.connectionstring:=txt1.text;
enlace.conexion.provider:='microsoft.jet.oledb.4.0';
enlace.conexion.Connected:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
enlace.tabla.close;
enlace.tabla.sql.clear;
enlace.tabla.sql.add('select*from '+ edit1.Text);
enlace.tabla.open;
end;
end.

Caral 21-02-2008 20:24:22

Hola
La verdad no entiendo muy bien lo que quieres hacer.
Lo puedes explicar mejor?.
Ver el contenido de la base de datos, sean los campos o su contenido es sencillo con access, pero no se a que te refieres.
Saludos

enecumene 21-02-2008 21:01:58

De esta Forma puedes llenar un combobox con los campos de una tabla:

Código Delphi [-]
while not(Query1.eof) do
begin
    combo.items.add(Query1.fieldByName('blabla').asString;
    Query1.next;
end;

no se si esto es lo que buscas, pues concuerdo con Caral, deberias explicar un poco tu duda.

Saludos.

Caral 21-02-2008 21:22:46

Hola
Conseguir los nombres de las tablas y ponerlos en un combobox:
Código Delphi [-]
 DataModule1.AC1.GetTableNames(ComboBox1.Items);
Poner los nombres de los campos de la tabla seleccionada de un combobox a otro:
Código Delphi [-]
    ADOQuery1.Close;
    ADOQuery1.SQL.Text:= 'Select * from '+ComboBox1.Text;
    ADOQuery1.Open;
    DataModule1.AC1.GetFieldNames(ComboBox1.Text, ComboBox2.Items);
Gracias Roman.
Saludos

kurono 21-02-2008 21:27:09

lo q quiero hacer es que cuano me conecte a la base de datos me presente en un combobox los nombre de la tabla que contine esa base de datos

Caral 21-02-2008 21:28:44

Hola
Bueno, entonces la pregunta esta contestada.
Saludos

cHackAll 21-02-2008 21:34:31

Oops, repetí lo que dijo Caral.

kurono 21-02-2008 21:40:07

este codigo me da error

Código Delphi [-]
 
DataModule1.AC1.GetTableNames(ComboBox1.Items);

egostar 21-02-2008 21:44:25

Cita:

Empezado por kurono (Mensaje 267696)
este codigo me da error

Código Delphi [-]
 
DataModule1.AC1.GetTableNames(ComboBox1.Items);

Pues si, te va a dar error porque eso es para un caso en particular, que componentes estas usando para acceder a tu base de datos...

Salud OS

Caral 21-02-2008 21:46:19

Hola
1- Tienes Datamodule, como se llama (enlace) ?????.
2- La conexión la haces con ADO?.
3- El ADOConnection se llama (conexion)????.
Si es el caso, cosa que no sabemos, seria asi, para que lo entiendas mejor.
Código Delphi [-]
enlace.conexion.GetTableNames(ComboBox1.Items);
De lo contrario, explícanos con que componentes haces la conexion.
Saludos

kurono 21-02-2008 21:50:27

ok asi mismo es que lo tengo probare con ese a ver

Caral 21-02-2008 21:54:16

Hola
Bueno, espero tu respuesta, así de paso me gano un par de post adicionales ya que estoy corto de ellos y si no cumplo la cuota diaria me bannean.:D
Saludos

kurono 21-02-2008 21:56:44

disculpa pero ahora no me da error pero no me muestra los nombre de la tabla

Caral 21-02-2008 22:02:24

Hola
Ese si es un problema.
No se que te paso, recapitulemos.
1- Trabajas con los componentes ADO ????.
2- Tienes un datamodule?
Esta parte es la mas importante, si no es asi, no va a funcionar, por favor indicalo, creo que es asi, por tu anterior participacion pero me cabe la duda.
Saludos

Caral 21-02-2008 22:34:48

Hola
Me preocupa, ya encontraste la falla???
Esto de no tener noticias, ni llama, ni escribe.
Saludos

ContraVeneno 21-02-2008 22:54:02

es que le dio un error....

andale, resuelvele...


por arte de magia será, porque no dijo que error le marcó...

eduarcol 21-02-2008 22:58:07

Cita:

Empezado por ContraVeneno (Mensaje 267722)
es que le dio un error....

andale, resuelvele...


por arte de magia será, porque no dijo que error le marcó...

Amigo contra es hora que cambies los lentes, :D:D

Cita:

Empezado por kurono (Mensaje 267709)
disculpa pero ahora NO me da error pero no muestra los nombre de la tabla



eduarcol := eduarcol + 1;

Caral 22-02-2008 02:48:38

Hola kurono
Hace ya un rato que no sabemos como te quedo el código, cuando tengas un tiempo nos gustaría saber, recuerda que estos hilos los ven muchas personas y que es bueno llegar a conclusiones así otros podrán aprender también.
Si tienes alguna duda, no dudes en consultarla, aquí hay muchos maestros que podrán darte una mano y con gusto.
Saludos

kurono 22-02-2008 06:29:42

disculpen por mi ausencia es que tuve que salir pues retomando el tema estoy utilizando los componente que mensionaste y en el orden que lo dices para ser mas especifico utilizo el adoquery y como no me dio resultado lo hice con adotabla pero de igual manera no me fuciona no se porq

eduarcol 22-02-2008 13:38:28

y si colocas el codigo que has colocado y no te funciona, a ver si nos hacemos una idea de lo que pueda estar pasando...


La franja horaria es GMT +2. Ahora son las 09:18:11.

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