Combobox, tabla, campos, items

[[Caral]]

Hola a Todos y gracias de antemano.
Vereis, estoy haciendo un programita que sirve de filto de la base de datos (access).
Tengo un combobox y un dbgrid para escoger la base de datos un combobox adicional, escoge el campo y un edit define el dato.
Que pretendo hacer:
1. Al entrar en el programa que el primer combobox carge las tablas (los Nombres) de cada Tabla.
2- Al cambiar el primer combobox se cargen en el segundo combobox los campos (nombres) de la tabla escogida.
3- Al llenar el edit, se muestre el filtro en el dbgrid.
Se como llenar un combobox con los campos de una tabla, pero no se como llenarlo con los nombres de esos campos.
Maestros si me podeis ayudar, lo agradeceria mucho.
Saludos

[[ArdiIIa]]

Hola Caral:
No tengo el delphi a mano pero de memoria sería algo tal como supongo que haces:

Código Delphi [-]
For I := 0 To Tabla.FieldsCount-1 Do
Combobox.Items.Add( Tabla.Fields[i].FieldName);

No estoy muy seguro....

[roman]

¿Usas ADO, no?

Llenar el combo cboTablas con las tablas:

Código Delphi [-]
ADOConnection.GetTableNames(cboTablas.Items);

Llenar el combo cboCampos con los campos de la tabla del combo anterior:

Código Delphi [-]
ADOConnection.GetFieldNames(cboTablas.Text, cboCampos.Items);

// Saludos

[[Caral]]

Hola
ArdiIIa: no me camino, no se porque?, no soy muy diestro en estas cosas.
Roman: Que decir. , nada que no te alla dicho antes. Eres un Maestro.
Muchas Gracias a los dos por ayudarme, ya esta listo y funcionando.
Gracias pero muchas gracias.
Saludos

[[Caral]]

Hola de nuevo.
Bueno todo va bien pero tengo una duda adicional.
Lo que estoy haciendo:
1-Cargo la tablas en el primer combobox1 (perfecto)
2-Cargo los campos en el segundo combobox2 (perfecto)
3-Introduzco un dato en el Edit para filtrar con este codigo:

Código Delphi [-]
  ADOQuery1.Open;
  ADOQuery1.Filter := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
  ADOQuery1.Filtered := True;

Funciona muy bien pero cuando el campo es text (String), si el campo es numerico se fastidio el invento.
Pregunta:
1-Como hago para que identifique el campo antes de filtrar?
2-Como hago para que se quede en blanco el edit1 despues de hacer la consulta.?

Código Delphi [-]
Edit1.Clear;

Esto de arriba no camina, ya que se esta filtrando:

Me ayudais por favor.
Saludos

[[egostar]]

Hola Caral

Así de bote pronto lo que yo haría es lo siguiente

Código Delphi [-]
try
   Filtro := strtoint(edit1.text);
   ADOQuery1.Filter := ComboBox2.Text+ ' = '+Filtro;
except 
   ADOQuery1.Filter := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
end;

ADOQuery1.Filter := True;
ADOQuery1.Open;

No entiendo como abres primero la tabla y luego la filtras, yo imaginaría que primero se asigna el filtro y luego se abre la tabla.

Saludos

[[egostar]]

Estimado Caral

De regreso a casa en el trafico de esta mi bella ciudad y escuchando a Alvin Lee, venia haciendo recuento de las actividades de este dia y vino a mi mente tu pregunta.

Tengo una duda.

Porque estas usando un filltro en un Query, yo he usado filtros pero en TTables no en TQuery, los datos en un Query son filtrados directamente en su sentencia SQL.

Saludos desde casa.

[[Lepe]]

Sin detenerme en lo comentado por los demás foristas (que estoy totalmente de acuerdo), el problema que te dá son precisamente las comillas simples que añades.

Mira la diferencia, si es un campo definido como String:

Código SQL [-]
 select * from table where codigo = '33'

Si está definido como integer, el sql debe quedar así:

Código SQL [-]
 select * from table where codigo = 33

Exactamente igual que usando filter.

Si es numérico, no tendría sentido usar el operador "Like", ya que irá a un registro que no le sirve al usuario para nada, por ejemplo busca el 33 y encuentra el 3 .

Saludos

[[Caral]]

Hola
egostar: Efectivamente se puede hacer el filtro por sentencia sql, posiblemente mas efectivamente pero en este caso me quedo un poco mas comodo hacerlo asi.
Gracias por tu explicacion, ya tenia mas o menos el camino, lo que pasa es que me empeño en no usar el try except, porque en diseño genera un error y particularmente no me gusta, asi es como lo tengo, pero no lo voy a dejar.

Código Delphi [-]
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
   AdoQuery1.Filtered := false;
   Filtro := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
   ADOQuery1.Filter := Filtro;
   //showmessage(Filtro);
   try
      ADOQuery1.Filtered := True;
   except
      try
         Filtro := ComboBox2.Text+ ' Like '+Edit1.Text;
         ADOQuery1.Filter := Filtro;
         ADOQuery1.Filtered := True;
      except
         Filtro := ComboBox2.Text+ ' >= '+Edit1.Text;
         ADOQuery1.Filter := Filtro;
         //showmessage(Filtro);
         ADOQuery1.Filtered := True;
      end;
   end
    end
   else ADOQuery1.Filtered := False;

Lepe: Gracias por la explicacion, efectivamente por ese camino estoy, entiendo bien lo de String e integer, en este filtro en especial lo que pretendo es el cambio continuo por eso en este caso el signo = no me camina, estoy tratando con >= que funciona mas adecuadamente aun asi sigo pensando y recibiendo sugerencias.
Una opcion que se me ha ocurrido es hacer el cambio en un combobox, asi definiria el tipo de campo, integer, float, string y simplemente me daria el resultado , no se que tal os parece, habra otra opcion?.Seguro que si.
Gracias por la ayuda que me dais.
Saludos