Combobox, tabla, campos, items

[[Lepe]]

No me gustaría que este tema se quedara así .

¿Por qué no te sale? Si en el combo1 tenemos los nombres de campos:

Código Delphi [-]
var idx :integer;
begin
  idx := query1.Fields.indexof(combo1.items[combo1.itemindex]);
  case Query1.Fields[idx].Datatype of
   .....
end;

Saludos

[[Caral]]

Hola Lepe
La respuesta a esto:

¿Por qué no te sale?

Ignorancia, desconocimiento, la opcion de Roman es fenomenal, funciona a medias, osea no pasa nada, no genera el filtro, pero no da error, por que , no se, me encantaria aplicarla, pero desconozco como, lo he intentado de varias formas (a mi alcance de conocimiento), pero no funciona.
Me gusta la forma en la que ayuda Roman, te da una pauta y luego te deja para que pienses, asi se aprende mas, bueno en este caso como que soy duro de mollera.
Saludos

[[egostar]]

Hola Caral,

Estuve revisando el código e hice algunas pruebas, después de probar las opciones, este código me funcionó perfectamente.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Query2.Close;
  case Query1.Fields[idx].Datatype of
     ftString   : Query2.Filter := ComboBox1.Text+ ' = '''+Edit1.Text+ '*''';
     ftInteger  : Query2.Filter := ComboBox1.Text+ ' = '+Edit1.Text;
     ftFloat,
     ftCurrency : Query2.Filter := ComboBox1.Text+ ' >= '+Edit1.Text;
     ftDate,
     ftTime     : Query2.Filter := ComboBox1.Text+ ' = '''+Edit1.Text+ '''';
  end;
  Query2.Filtered := True;
  Query2.Open;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  idx := ComboBox1.ItemIndex;
end;

Utilice dos TQuery un TComboBox, Un TEdit y un BitButton.

Nota: En la propiedad filter no puedes usar el Like ni comillas.

Salud OS.

[[Caral]]

Hola Maestros
No hay manera, me genera errores, lo tengo asi:
Os muestro el codigo completo para que lo veais mejor:
El combobox1, muestra las tablas.(bien)
El combobox2, muestra los campos.(bien)
El edit1 (en el evento onchange) hace el filtro.(Mal).

Código Delphi [-]
unit UFManTablas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls;

type
  TFManTablas = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    ComboBox2: TComboBox;
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FManTablas: TFManTablas;

implementation

uses UDM1;

{$R *.dfm}

procedure TFManTablas.ComboBox1Change(Sender: TObject);
begin
    ComboBox2.Clear;
    ADOQuery1.Close;
    ADOQuery1.SQL.Text:= 'Select * from '+ComboBox1.Text;
    ADOQuery1.Open;
    DBGrid1.Columns.Clear;
    DBGrid1.Columns.State := csCustomized;
    DBGrid1.Columns[0].Width := 64;
    // con esto veo el nombre de los campos de la tabla gracias a Roman.
    DataModule1.AC1.GetFieldNames(ComboBox1.Text, ComboBox2.Items);
    
end;

procedure TFManTablas.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TFManTablas.FormCreate(Sender: TObject);
begin
   // con esto veo el nombre de las tablas garcias a Roman
   DataModule1.AC1.GetTableNames(ComboBox1.Items);
end;

procedure TFManTablas.Edit1Change(Sender: TObject);
var
//   Filtro : String;
idx :integer;
begin
//   idx := AdoQuery1.Fields.indexof(ComboBox2.items[ComboBox2.itemindex]);
/    idx := ComboBox2.ItemIndex;
     AdoQuery1.Close;
  case AdoQuery1.Fields[idx].Datatype of
     ftString   : AdoQuery1.Filter := ComboBox2.Text+ ' = '''+Edit1.Text+ '*''';
     ftInteger  : AdoQuery1.Filter := ComboBox2.Text+ ' = '+Edit1.Text;
     ftFloat,
     ftCurrency : AdoQuery1.Filter := ComboBox2.Text+ ' >= '+Edit1.Text;
     ftDate,
     ftTime     : AdoQuery1.Filter := ComboBox2.Text+ ' = '''+Edit1.Text+ '''';
  end;
  AdoQuery1.Filtered := True;
  AdoQuery1.Open;


 {  // esta opcion da un error en tiempo de diseño no en ejecucion
   // esto es por la rutina try except, que lo produce
   // no afecta el programa, filtra bien
   If (Edit1.Text <> '') then
   begin
   AdoQuery1.Filtered := false;
   try
   Filtro := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
   ADOQuery1.Filter := Filtro;
   ADOQuery1.Filtered := True;
  // showmessage(Filtro + '1');
   except
         Filtro := ComboBox2.Text+ ' = '+Edit1.Text;
         ADOQuery1.Filter := Filtro;
         ADOQuery1.Filtered := True;
   //       showmessage(Filtro + '2');
   end
    end
   else ADOQuery1.Filtered := False; }
 end;

procedure TFManTablas.Button2Click(Sender: TObject);
begin
  //  ADOQuery1.Close;
    Edit1.Text:= '';
end;

end.

A ver si se os ocurre algo.
Gracias
Saludos

[[egostar]]

Hola Caral

Veo dos cosas,

1. El idx yo lo pondría en el evento onchange del combobox de los campos.

2. en el Edit1.Change veo que hay una inconsistencia que te da error cuando inicializas a '';

Código Delphi [-]
procedure TFManTablas.Edit1Change(Sender: TObject);
begin
    if Edit1.Text <> '' then begin // Solo si hay un campo a filtrar se realiza la operación.
      AdoQuery1.Close;
      case AdoQuery1.Fields[idx].Datatype of
          ftString   : AdoQuery1.Filter := ComboBox2.Text+ ' = '''+Edit1.Text+  '*''';
          ftInteger  : AdoQuery1.Filter := ComboBox2.Text+ ' = '+Edit1.Text;
          ftFloat,
          ftCurrency : AdoQuery1.Filter := ComboBox2.Text+ ' >= '+Edit1.Text;
          ftDate,
          ftTime     : AdoQuery1.Filter := ComboBox2.Text+ ' = '''+Edit1.Text+ '''';
     end;
     AdoQuery1.Filtered := True;
     AdoQuery1.Open;
  end;
end;

Salud OS.

[[Caral]]

Hola egostar
No hay manera, segui tus explicaciones, colocando el idx en el combobox2 y me sale este error:

List index out of bounds(441846) (

Lo curioso es que me sale un numero en un campo string, no se no me aclaro.
Saludos

[roman]

Hola,

Algunas cosas que he observado:

• El orden en que GetFieldNames regresa los campos no necesariamente coincide con el orden natural en Fields. Por tanto, no se puede tomar tal cual el índice del combo de campos como había propuesto inicialmente. En su lugar puede hacerse:
  

  
  

  Código Delphi [-]
  var
    FieldName: String;
    Field: TField;
    Filter: String;
  
  begin
    FieldName := cboFieldNames.Text; // tomo el nombre del campo
    Field := AdoTable.Fields.FieldByName(FieldName); // buscamos el campo por nombre
  
    case Field.Datatype of
      ..
    end;

• Al menos en mi caso, el tipo de datos que regresa Access para un campo Texto es ftWideString y no ftString, así que hay que considerar esto en el case:
  

  
  

  Código Delphi [-]
    case Field.Datatype of
      ftString, ftWideString: ....
    end;

• Luego de algunas pruebas llego al conclusión de que el #$%&@ Access (¿o será el ADO?) no acepta el '=' en la comparación de cadenas con comodín *. Debe ser como decía Caral desde un principio: like.

// Saludos