Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-04-2004
Brewster Brewster is offline
Miembro
 
Registrado: abr 2004
Posts: 56
Poder: 21
Brewster Va por buen camino
Intraweb: Comparar contenido de un edit en campo de la BD

Hola.-

Mi consulta es muy sencilla, dispongo de una bd con una tabla llamado ARTICULOS, y quiero comprobar que el ID_ARTICULO que el usuario introduce en un edit existe en esa tabla de la BD.

Para ello tengo un ADOConnection, un ADOQuery, un edit llamado editPrueba y un botón.

En el ADOQuery tengo (y aquí es donde creo que está el error pues esto aun no lo controlo mucho) en la propiedad SQL:

SELECT * FROM ARTICULOS WHERE ID_ARTICULO=editPrueba.Caption

Cuando hago doble clic en el botón pongo el siguiente código.-

ADOConnection1.ConnectionString:='c:/web/data/basedatos.mdb';
ADOConnection1.Connected:=True;
ADOQuery1.Active:=True;

if ADOQuery1.IsEmpty then
// No existe ese artículo...
else
// Existe este artículo


La cuestión es que si en la propiedad SQL pongo directamente:

select * from ARTICULOS where ID_ARTICULO='1'

funciona perfectamente, pero quiero que ese valor lo coja del campo editPrueba

¿Cómo se pasa los parámetros a una consulta SQL?

Gracias
Responder Con Cita
  #2  
Antiguo 24-04-2004
Avatar de DarkByte
DarkByte DarkByte is offline
Miembro
 
Registrado: sep 2003
Ubicación: Desconocido
Posts: 1.322
Poder: 22
DarkByte Va por buen camino
Te recomiendo que pongas la etiquetas [ CODE ] y [ / CODE] (pero sin espacios) entre el código que introduzcas, pues así lo haces más legible y lo separas del contenido.

Suerte!
__________________
:)
Responder Con Cita
  #3  
Antiguo 24-04-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
Adoquery1.Close;
Adoquery1.Sql.Clear;
Adoquery1.SQL.Add('Select * from Libros');
Adoquery1.SQL.Add('Where autor = '+QuotedStr(Edit1.Text));
Adoquery1.Open;
end;
Como ves he utilizado las etiquetas code que citaba el amigo DarkByte.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #4  
Antiguo 26-04-2004
Brewster Brewster is offline
Miembro
 
Registrado: abr 2004
Posts: 56
Poder: 21
Brewster Va por buen camino
Me funciona perfectamente. Muchas gracias.
Responder Con Cita
Respuesta



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 14:53:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi