Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #13  
Antiguo 08-06-2004
Avatar de FNADALO
FNADALO FNADALO is offline
Miembro
 
Registrado: oct 2003
Ubicación: Palma de Mallorca
Posts: 97
Poder: 23
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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:01:01.


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
Copyright 1996-2007 Club Delphi