como puedo ver las tablas que contiene una base de datos

[[kurono]]

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]]

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]]

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]]

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]]

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]]

Hola
Bueno, entonces la pregunta esta contestada.
Saludos

[[cHackAll]]

Oops, repetí lo que dijo Caral.

[[kurono]]

este codigo me da error

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

[[egostar]]

Empezado por kurono

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]]

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]]

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

[[Caral]]

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.
Saludos

[[kurono]]

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

[[Caral]]

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]]

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

[ContraVeneno]

es que le dio un error....

andale, resuelvele...


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

[[eduarcol]]

Empezado por ContraVeneno

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,

Empezado por kurono

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

eduarcol := eduarcol + 1;

[[Caral]]

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]]

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]]

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...