Ver Mensaje Individual
  #14  
Antiguo 08-06-2004
Avatar de FNADALO
FNADALO FNADALO is offline
Miembro
 
Registrado: oct 2003
Ubicación: Palma de Mallorca
Posts: 97
Reputación: 21
FNADALO Va por buen camino
Wink

Weke te paso un código que es como lo utilizo este genera
un Abm a partir de unos campos y una tabla,
Código Delphi [-]
  AdoQuery1.Close;
     AdoQuery1.SQL.Clear;
     ADOQuery1.Connection := DataModule1.ADOConnection1;

     if SqlStr.Text <>'' then
        begin
           AdoQuery1.SQL.Add(SqlStr.Text)
        end
        else AdoQuery1.SQL.Add('Select * From '+ Tabla.Text);

//     AdoQuery1.SQL.Add(SqlStr);
//     AdoQuery1.SQL.Add('Select * From '+ Tabla );
     if Busca.Text <> '' then
        begin
           AdoQuery1.SQL.Add('where '+ Busco.Text);
           AdoQuery1.SQL.Add(' LIKE '+ quotedStr(Busca.Text) +' + ' + '''%''');
        end;


     AdoQuery1.SQL.Add('ORDER BY ' + Busco.Text);
     AdoQuery1.Open;

  // Asignación al Objeto DataSource el DataSet. ---
     DataSource1.DataSet := AdoQuery1;
Fijate en la linea que tengo el Like.

Última edición por __cadetill fecha: 08-06-2004 a las 09:27:56. Razón: poner etiqueta Delphi
Responder Con Cita