Cita:
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.