Consulta Sql con query

[bogdanioanliviu]

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]

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]

Empezado por microbiano

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]

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]

Empezado por ContraVeneno

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]]

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]

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

[[Chris]]

Otra sugerencia, cerciórate de la capitalización de las letras. Muchas veces nos dan dolores de cabeza joyitas como estas.

Saludos,
Chris

[bogdanioanliviu]

Empezado por Chris

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.

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]

Empezado por Neftali

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]]

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]

Empezado por Neftali

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]]

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 aram

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

[bogdanioanliviu]

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]

Código Delphi [-]
with self.query1 do begin
  Close;
  SQL.Clear;
  SQL.add('select *');
  SQL.Add('from project');
  SQL.Add('where city=aram'); //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]]

Empezado por bogdanioanliviu

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]]

Empezado por microbiano

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.

[bogdanioanliviu]

Empezado por Neftali

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]]

Empezado por bogdanioanliviu

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]

Empezado por Neftali

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.