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.