Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MySQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 11-01-2007
Avatar de BuenaOnda
BuenaOnda BuenaOnda is offline
Miembro
 
Registrado: feb 2006
Ubicación: La Serena - Chile
Posts: 347
Poder: 21
BuenaOnda Va por buen camino
Thumbs up

lo que dice bicho esta super bien, pero si quieres utilizar una variable, que contenga tu consulta deberia ser de la sgte manera :

//por ejemplo para realizar una consulta a la base de datos...

var
Cod : String;
Activo : String;
Consulta : String;
Encontrados : Integer;

Cod:='1';
Activo:='S';
Encontrados:=0;

Consulta:='';
Consulta:='Select * From Tabla';
Consulta:=Consulta + ' Where Codigo = ' + Trim(Cod);
Consulta:=Consulta + ' And RegistroActivo = ''' + Trim(Activo) + '''';

//Cuando el campo es de un tipo de dato Varchar(cadena,texto) o de un
//tipo DateTime se le deben anteponer tres comillas simples (') y cerrar
//con tres comillas simples('), si es que la concatenacion continua, o
//4 comillas simples si la concatenacion termina, en este caso el campo
// "Codigo" es de tipo Integer y RegistroActivo Varchar"....

TRY
AdoQuery1.Sql.Clear;
AdoQuery1.Sql.Text:=Consulta;
AdoQuery1.Open;

IF AdoQuery1.RecordCount > 0 THEN //Se encontraron coincidencias.
BEGIN
AdoQuery1.Last; //Nos movimos al ultimo registro...
Encontrados:=AdoQuery1.RecordCount;

AdoQuery1.First; //Nos movemos al primero...

WHILE NOT AdoQuery1.Eof DO
BEGIN
//Recorremos los regitros encontrados....
AdoQuery1.Next; //Nos Movemos al Siguiente registro...
END;

END;

FINALLY
AdoQuery1.Close; //Cerramos el AdoQuery1...
END;


espero que te sirva...
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como unir un tMainMenu con varios. ErenioDhG Internet 4 14-11-2006 21:23:34
Unir dos DBgrids Nbull Conexión con bases de datos 2 02-02-2006 09:19:00
unir tablas Mario1980 Conexión con bases de datos 8 22-10-2004 10:36:45
unir db grids piyugo Varios 3 29-08-2004 23:54:50
¿Como Unir tablas de dos ALIAS diferentes? sitrico SQL 3 01-07-2004 01:15:09


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


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