Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Consulta Sql con query (https://www.clubdelphi.com/foros/showthread.php?t=71813)

bogdanioanliviu 12-01-2011 16:50:30
Consulta Sql con query
 
Hola

Tengo un problema . tengo una base de datos en access con una tabla, intento aser una query des de codico delphi.
EL codigo: 

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.add('select * from project where city=:param');
query1.ParamByName('param').AsString:=combobox1.Text;
//query1.Prepare;
//query1.Active:=true;
query1.ExecSQL;
query1.active:=true;
dbgrid1.Refresh;
end;

el query le paso un param que coje un val de un combobox. El problema es que no se por que no funciona y tampoco me inseña el rezultado en un dbgrid.

Me podeis echar una mano porfa , me vuelvo loco.

microbiano 12-01-2011 17:06:19
que tal si cambias el query1. execSQl por Query1.open;


normalmente exec es para cuando quieres hacer una instruccion de insertar,modificar o eliminar, para consultas usa open.

saludos, por cierto usa las etiquetas delphi para que tu codigo se vea mejor.

bogdanioanliviu 12-01-2011 17:10:30
Cita:
Empezado por microbiano (Mensaje 387314)
que tal si cambias el query1. execSQl por Query1.open;


normalmente exec es para cuando quieres hacer una instruccion de insertar,modificar o eliminar, para consultas usa open.

saludos, por cierto usa las etiquetas delphi para que tu codigo se vea mejor.
Por desgracia sigue igual.
El programa no devuelve ningun error el problema que tengo es que el param puede tener 2 val : a y b , que seguro se encuentran en la base de datos.
si le escrivo el texto a mano "select ..... city='a' " directamente en el query pues funciona. si lo intento usar con param no .

ContraVeneno 12-01-2011 17:25:15 
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 with query1 do begin
  Close;
  SQL.Clear;
  SQL.add('select Campos');
  SQL.Add('from project');
  SQL.Add('where city=:param');
  ParamByName('param').AsString:=combobox1.Text;
  Open;
  dbgrid1.Refresh;
 end; //with
end;

eso debe de funionar, si no funciona, es porque combobox1.text no te está dando el valor que tu quieres... ¿no será que debes usar ItemIndex en lugar de Text para tomar el valor?

Además, lo que pongas en tu Combo debe de ser exactamente igual a lo que tengas en tu case de datos, en este caso, creo que sería mejor un LookUpComboBox...

bogdanioanliviu 12-01-2011 17:30:58
Cita:
Empezado por ContraVeneno (Mensaje 387320)
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); begin with query1 do begin Close; SQL.Clear; SQL.add('select Campos'); SQL.Add('from project'); SQL.Add('where city=:param'); ParamByName('param').AsString:=combobox1.Text; Open; dbgrid1.Refresh; end; //with end;


eso debe de funionar, si no funciona, es porque combobox1.text no te está dando el valor que tu quieres... ¿no será que debes usar ItemIndex en lugar de Text para tomar el valor?

Además, lo que pongas en tu Combo debe de ser exactamente igual a lo que tengas en tu case de datos, en este caso, creo que sería mejor un LookUpComboBox...

Gracias funciona por que no me da ningun error. Pero sigue sin ponerme los rezultados en el dbgrid.
Y no intiendo por que.

Neftali [Germán.Estévez] 12-01-2011 18:27:18
Prueba la misma consulta pero sin el WHERE.
¿Salen datos ahora?

Si es que sí, intenta comprobar lo que estás pasando como parámetro. Si es que no, debe ser por otra cosa. Revisa que tengas creadas las columnas en el Grid y vuelve a crearlas.

microbiano 13-01-2011 02:59:06
por curiosidad tienes enlazado el DGbrid a un DataSource y este al Query?, digo si no es asi como quieres hacerlo?

Chris 13-01-2011 03:42:11
Otra sugerencia, cerciórate de la capitalización de las letras. Muchas veces nos dan dolores de cabeza joyitas como estas.

Saludos,
Chris

bogdanioanliviu 13-01-2011 08:19:27
Cita:
Empezado por Chris (Mensaje 387397)
Otra sugerencia, cerciórate de la capitalización de las letras. Muchas veces nos dan dolores de cabeza joyitas como estas.

Saludos,
Chris
Si estube atento a las letras. No es por A or a en las palabras que uso para la busqeda.

Cita:
por curiosidad tienes enlazado el DGbrid a un DataSource y este al Query?, digo si no es asi como quieres hacerlo?
Claro que si
Tengo

Tdatabase
Tdatasource
tDbgrid
tquery

datasource apunta al query
dbgrid apunta al datasource

bogdanioanliviu 13-01-2011 08:23:36
Cita:
Empezado por Neftali (Mensaje 387333)
Prueba la misma consulta pero sin el WHERE.
¿Salen datos ahora?

Si es que sí, intenta comprobar lo que estás pasando como parámetro. Si es que no, debe ser por otra cosa. Revisa que tengas creadas las columnas en el Grid y vuelve a crearlas.
sigue sin funcionar da egual que con o sin with
Por que hay que crearlas a mano ? se sopone que cuando activo el query tendria que activarse la conexion con el dbgrid y crear de forma automatica las columnas.
DE toda forma esta creando de forma automatica las columnas de la tabla pero lo que no hase es popular el dbgrid con los valores.

El parametro esta conf como string y imput .
Me entra unas ganas de llevar a patadas el pc . Esto es algo simple pero no intiendo por que no funciona.

Neftali [Germán.Estévez] 13-01-2011 11:09:39
Otra opción es que subas un pequeño proyecto de ejemplo (puedes crear un proyecto con un formulario similar al que tienes) y con unos datos de ejemplo y le echamos un vistazo. Estoy convencido de que debe ser una tontería, pero sin ver más es difícil saber qué puede estar pasando.

bogdanioanliviu 13-01-2011 11:31:53
Cita:
Empezado por Neftali (Mensaje 387417)
Otra opción es que subas un pequeño proyecto de ejemplo (puedes crear un proyecto con un formulario similar al que tienes) y con unos datos de ejemplo y le echamos un vistazo. Estoy convencido de que debe ser una tontería, pero sin ver más es difícil saber qué puede estar pasando.
Aqui esta puesto el project con la db de test.
es una db de access y utilizo delphi 2010.
si necesitas mas info ....
no lo puedo subir por el tamaño.
el link para mis doc´s :
https://docs.google.com/leaf?id=0B6w...thkey=CPK-7u4P
Gracias por la ayuda.

Neftali [Germán.Estévez] 13-01-2011 13:54:28
Pues he probado el ejemplillo que has enviado, tanto con BDE como cambiando los componentes por los ADO y utilizando este código y me funciona perfectamente. Cuando selecciono "Alzira" me aparece 1, cuando es "Madrid" me aparecen 5:

Código Delphi [-]
  // con BDE
 with Query1 do begin
  Close;
  SQL.Clear;
  SQL.add('select *');
  SQL.Add('from project');
  SQL.Add('where city=: param');
  ParamByName('param').AsString:=combobox1.Text;
  Open;
  dbgrid1.Refresh;
 end; //with
end;

Código Delphi [-]
 // Con ADO
 with ADOQuery1 do begin
  Close;
  SQL.Clear;
  SQL.add('select *');
  SQL.Add('from project');
  SQL.Add('where city=: param');
  Parameters.FindParam('param').Value := combobox1.Text;
  Open;
  dbgrid1.Refresh;
 end; //with
end;

NOTA: los espacios en el : param están porque si no aparece esto :param

¿Cuando lo ejecutas tú, te da algun error?

bogdanioanliviu 13-01-2011 13:59:43
no da error solo no esta populando el dbgrid

si le pongo ": param" con espacio ente : y param me da error parametro param desconocido si lo pongo sin espacio no da error

microbiano 13-01-2011 16:30:14
prueba asi
 
Código Delphi [-]
with self.query1 do begin
  Close;
  SQL.Clear;
  SQL.add('select *');
  SQL.Add('from project');
  SQL.Add('where city=:param'); //recuerda que tiene saler la carita pero realmente es el nombre del parametro
  parameters.ParamByName('param').value:=combobox1.Text;//aqui cambie As String por value
  try
    open;     
   except
    on E:EOleException do
     begin
      MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
     end;
   end;

 end; //with
end;


Debes tener declara la libreria ComObjs para que funcione.

Neftali [Germán.Estévez] 13-01-2011 16:37:08
Cita:
Empezado por bogdanioanliviu (Mensaje 387427)
no da error solo no esta populando el dbgrid

si le pongo ": param" con espacio ente : y param me da error parametro param desconocido si lo pongo sin espacio no da error
No me refería a ponerlo en Delphi con el espacio, me refería a ponerlo en los foros con el espacio.

¿Has probado a realizar la conexión con ADO? Para descartar que sea algo de BDE.

Neftali [Germán.Estévez] 13-01-2011 16:37:58
Cita:
Empezado por microbiano (Mensaje 387441)
Debes tener declara la libreria ComBojs para que funcione.
El problema es que no le da error, por lo tanto la excepción la captura de la excepción no hará nada. :confused::confused:

bogdanioanliviu 13-01-2011 16:44:27
Cita:
Empezado por Neftali (Mensaje 387442)
No me refería a ponerlo en Delphi con el espacio, me refería a ponerlo en los foros con el espacio.

¿Has probado a realizar la conexión con ADO? Para descartar que sea algo de BDE.
no lo he probado pero si tengo que cambiar ahora a ADO me muero. Asi que no es una opcion.

Neftali [Germán.Estévez] 13-01-2011 16:51:01
Cita:
Empezado por bogdanioanliviu (Mensaje 387445)
no lo he probado pero si tengo que cambiar ahora a ADO me muero. Asi que no es una opcion.
Me refería a que lo cambiaras en el ejemplo para probar y descartar cosas; Saber si funciona con ADO y con el BDE no o algo así.
Como ya te he dicho, a mi me ha funcionado el ejemplo con ambos (Delphi 6).

bogdanioanliviu 13-01-2011 16:52:54
Cita:
Empezado por Neftali (Mensaje 387446)
Me refería a que lo cambiaras en el ejemplo para probar y descartar cosas; Saber si funciona con ADO y con el BDE no o algo así.
Como ya te he dicho, a mi me ha funcionado el ejemplo con ambos (Delphi 6).
ME voy a ca... en todo . Ya esta funcionando corectamente.
La solucion corecta adjudecada al usuario microbiano. Gracias por tu alliuda .
Gracias a todos por vuestra alluda y colaboracion.

El problema era que que yo tenia .asstring y tendria que ser como .value
Gracias.


La franja horaria es GMT +2. Ahora son las 08:13:31.

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