Club Delphi  
    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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-11-2005
ilichhernandez ilichhernandez is offline
Miembro
 
Registrado: oct 2005
Posts: 277
Poder: 19
ilichhernandez Va por buen camino
Question Saber si un dato existe en una query

Hola, bueno les cuento.......mi problema es el siguiente, necesito saber si un dato esta o no en una query, entonces se me ocurrio un

Código SQL [-]

Select count (contador) from envases
where tipo_envase = :dbedit1.text

Pero no se como rescatar el resultado que contendra contador....
Agradeceria ayuda por favor....
Gracias
Ilich Hernandez.
Responder Con Cita
  #2  
Antiguo 01-11-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Tal como planteas la consulta SQL bastaría con:

Código Delphi [-]
Query1.Fields[0].AsInteger;

// Saludos
Responder Con Cita
  #3  
Antiguo 01-11-2005
Avatar de Enan0
Enan0 Enan0 is offline
Miembro
 
Registrado: may 2004
Ubicación: Argentina
Posts: 565
Poder: 20
Enan0 Va por buen camino
Bueno tambien podrias hacerlo asi!

Código Delphi [-]
  adoquery.SQL.Add ('Select * from envases where Tipo_envase:='+edcodenvase.text);
 adoquery.execSQL
 if adoquey.ifempty then // no existe
 else ADOQuery1.RecordCount // para saber cuantos hay
Responder Con Cita
  #4  
Antiguo 01-11-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 24
vtdeleon Va por buen camino
Saludos

ExecSQL
Enan0, cuando una sentencia tiene Select no se debe usar ExecSQL(arrojara error), sino Open.
ExecSQL se utiliza para sentencias de movimientos (Delete,Update e Insert)
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #5  
Antiguo 02-11-2005
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por vtdeleon
Saludos
ExecSQL
Enan0, cuando una sentencia tiene Select no se debe usar ExecSQL(arrojara error), sino Open.
ExecSQL se utiliza para sentencias de movimientos (Delete,Update e Insert)
Siendo Qqr un TpFIBQuery (de las FIBplus);
Código:
 DMprincipal.Qqr.Close;
DMprincipal.Qqr.SQL.Text := 'select * from tbClientes';
DMprincipal.Qqr.ExecQuery;
Responder Con Cita
  #6  
Antiguo 02-11-2005
Avatar de Enan0
Enan0 Enan0 is offline
Miembro
 
Registrado: may 2004
Ubicación: Argentina
Posts: 565
Poder: 20
Enan0 Va por buen camino
Cita:
Empezado por vtdeleon
Saludos

ExecSQL
Enan0, cuando una sentencia tiene Select no se debe usar ExecSQL(arrojara error), sino Open.
ExecSQL se utiliza para sentencias de movimientos (Delete,Update e Insert)
SII tenes razon. calculo que me traiciono el subconciente.
pido mil disculpas

Última edición por Enan0 fecha: 02-11-2005 a las 11:42:37.
Responder Con Cita
  #7  
Antiguo 02-11-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 24
vtdeleon Va por buen camino
Saludos
Cita:
Empezado por Casimiro Notevi
Siendo Qqr un TpFIBQuery (de las FIBplus);
Código:
 DMprincipal.Qqr.Close;
DMprincipal.Qqr.SQL.Text := 'select * from tbClientes';
DMprincipal.Qqr.ExecQuery;
No he utilizado esos componentes y gracias por el dato
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #8  
Antiguo 02-11-2005
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por vtdeleon
Saludos
No he utilizado esos componentes y gracias por el dato
Es igual con FIBplus, FreeIB, IBX, MDO y todos los de su "familia"
Responder Con Cita
  #9  
Antiguo 03-11-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Regresando a la pregunta original, no creo que hacer un select * sea lo más eficiente para saber si hay registros de un cierto tipo ya que esto puede ser costoso si hay muchos de esos registros siendo que sólo se desea saber si hay o no.

// Saludos
Responder Con Cita
  #10  
Antiguo 03-11-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 24
vtdeleon Va por buen camino
Saludos

Creo que lo mas eficiente sería la sentencia que tiene ilichhernandez en el primer post!!! No se me ocurre otra forma de hacer
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
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 21:51:36.


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