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 17-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
Consulta de un campo con el valor de un Label

Quiero hacer una consulta con un IBQuery, que el campo a buscar se introduzca en un Combo o en un Label y el resultado a buscar lo haria en el parámetro de IBQuery.

Lo del valor en el parámetro no hay problema lo que necesito como hacer la consulta con el campo que desee como ya indique anteriormente.



Que habria que añadir para buscar en el campo que se desee.



IBQuery1.Params.ParamValues['valor1']:='combo’;



Un saludo.

Responder Con Cita
  #2  
Antiguo 17-08-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Para acceder al texto del combo puedes hacerlo por la propiedad Text o con
Combo.Items[Combo.ItemIndex]
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 18-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
Sí, pero como se haria la consulta?.

IBQuery1.Params...........................
Responder Con Cita
  #4  
Antiguo 18-08-2005
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Poder: 20
jmariano Va por buen camino
Si no estoy interpretandote mal, para poder hacer una consulta sobre cualquier campo tendrás que reconstruir la cláusula "WHERE" cada vez que quieras buscar por otro campo (ya que no se pueden usar parámetros para especificar campos). Lo mejor sería dividir la consulta en varias líneas para así sólo modificar la parte dinámica a través de su índice. Por ejemplo, imaginando que la cláusula "WHERE" estuviera en la segunda línea de la propiedad "SQL" (teniedo en la primera la parte "select...from..."):

Código Delphi [-]
  IBQuery1.SQL[1] := 'WHERE ' + ComboBox.Items[ComboBox.ItemIndex] + ' = :valor1';
  ...
Responder Con Cita
  #5  
Antiguo 21-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
De esta manera no me dá ningún resultado, que error puede tener el codigo.?:

procedure TPaneldeInformes.BitBtn7Click(Sender: TObject);
var
valor:string;
begin
valor:='TRASMISIONES'; //Resultado a buscar en el campo seleccionado en el combobox1.
IBQuery1.Active := False;
IBQuery1.SQL[1] := 'WHERE ' + ComboBox1.Items[ComboBox1.ItemIndex] + ' = :valor';

IBQuery1.Active := True;

Última edición por perillan fecha: 21-08-2005 a las 15:00:27.
Responder Con Cita
  #6  
Antiguo 21-08-2005
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Poder: 20
jmariano Va por buen camino
Lo que tienes mal es que primero has de definir la cláusula "WHERE" y después el valor para el parámetro dinámico. También tienes mal la forma de pasar el valor.

La forma correcta sería así

Código Delphi [-]
procedure TPaneldeInformes.BitBtn7Click(Sender: TObject);
begin
  IBQuery1.Active := False;
  IBQuery1.SQL[1] := 'WHERE ' + ComboBox1.Items[ComboBox1.ItemIndex] + ' = :valor';
  IBQuery1.Params[0].AsString := 'TRASMISIONES'; //Resultado a buscar en el campo seleccionado en el combobox1.
  IBQuery1.Active := True;
end;
Responder Con Cita
  #7  
Antiguo 21-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
Sigue sin darme ningún resultado ni tampoco error.

Supongo que problema puede ser en el codigo de propiedades del IBQuery, lo tengo así:

Select *from articulos

Si no hay un campo fijo para la busqueda con el WHERE que en el ejemplo seria el Combobox1, como le puedo asignar el parametro tambien del ejemplo ('=:valor). ?
Responder Con Cita
  #8  
Antiguo 21-08-2005
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Poder: 20
jmariano Va por buen camino
Si no te da resultados, es decir, no te devuelve ningun registro es que, entonces, no debe de haber ningun registro donde el campo especificado en el "Combo" tenga el valor "TRASMISIONES". Fíjate si la cadena está escrita correctamente y si la almacenaste así todo en mayúsculas en la tabla.

Por cierto, la cláusula "SELECT" la tienes correcta pero si sólo tienes esa línea me resulta raro que no te haya dado error de índice al acceder al segundo elemento de la propiedad SQL del IBQuery (donde estaría la cláusula "WHERE"), salvo, claro, que tengas una línea en blanco debajo del "SELECT".

Sobre tu última pregunta no la entendí muy bien... pero si te refieres a acceder a un parámetro determinado por su nombre sería así: IBQuery.ParamByName(<NombreParametro>)

Última edición por jmariano fecha: 21-08-2005 a las 20:39:13.
Responder Con Cita
  #9  
Antiguo 21-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
He repasado la cláusula "SELECT" y efectivamente tienes toda la razón había una línea en blanco y ahora da un error de índice 'list index out of bounds(1)'. que se debe poner con la cláusula ("WHERE").
Un saludo y perdona las molestias que te estoy dando.
Responder Con Cita
  #10  
Antiguo 21-08-2005
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Poder: 20
jmariano Va por buen camino
Percisamente, para que no te de ese error de índice tenías bien dicha linea en blanco (o, tambien, podrías poner una cláusula "WHERE" por defecto), si te lo comenté fue porque me paració rarísimo que no te lo diera si sólo tenías la cláusula "SELECT". (De lo que se trata, en realidad, es dividir la sentencia "SELECT" en líneas para despues modificar fácilmente aquellas cláusulas que han de ser dinámicas, que en tu caso es la cláusula "WHERE", y así no tener que estar repitiendo toda la consulta siempre, al menos así es como yo lo hago).

¿Revisaste la tabla a ver si existe ese valor "TRASMISIONES? ¿Te funcionó al final la consulta? (y aclárame la última pregunta porque, al menos yo, no la entendí)
Responder Con Cita
  #11  
Antiguo 22-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
La consulta funciona perfectamente con la línea en blanco como comentastes. En la segunda pregunta lo que quiero es continuar con otra condición (la consulta con dos condiciones que se cumplan con un AND). Hechale un vistaza pues sale el error "mission operator or semicolon".



var
VISTO:string;
begin

VISTO:='BASEDATOS';
IBQuery1.Active := False;
IBQuery1.SQL[1] := 'WHERE ' + VISTO + ' = :valor' AND +ComboBox1.Items[ComboBox1.ItemIndex] ' =:valor1';
IBQuery1.Params[0].AsString :='TRANSMISIONES';
IBQuery1.Params[1].AsString :='***';//Este resultado tiene que ser (>= 1) mayor o igual a Uno
Responder Con Cita
  #12  
Antiguo 22-08-2005
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Poder: 20
jmariano Va por buen camino
Lo que tienes mal es como escribiste la consulta (el "AND" y ">=" forman parte de la consulta SQL y te falto el operador de concatenación al final). Revisa lo siguiente:

Código Delphi [-]
var
  VISTO:string;
begin
  VISTO:='BASEDATOS';
  IBQuery1.Active := False;
 
  // El "AND" y el operador ">=" van dentro de la cadena de consulta
  IBQuery1.SQL[1] := 'WHERE ' + VISTO + ' = :valor AND ' + 
    ComboBox1.Items[ComboBox1.ItemIndex] + ' >= :valor1';
 
  IBQuery1.Params[0].AsString :='TRANSMISIONES'; 
  IBQuery1.Params[1].AsString :='1'; // (>= 1)
  IBQuery1.Active := True; 
end;
Responder Con Cita
  #13  
Antiguo 22-08-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
Muchas gracias jmariano funciona a las mil maravillas, con personas así da gusto.
Un saludo Agustin.
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 01:33:09.


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