PINO72
17-10-2004, 02:30:47
Hola:
Tengo un DBGrid con los datos de la tabla de proveedores. Un Combo donde selecciono el campo por el que quiero buscar un valor almacenado en un control TEdit. Al rellenar el campo de busqueda y el valor a buscar me da error "Data type unknow" .... ¿Que pasa?
Aquí teneis el fragmento del código que se ejecuta al pulsar el boton de busqueda :
procedure TABMCProveedores.BitBtn1Click(Sender: TObject);
Var cNombreCampo : String;
begin
With IBProveedores do
begin
cNombreCampo:= DbGrid1.Columns[Combobox1.ItemIndex].FieldName;
DisableControls;
Close;
SelectSQL.Clear;
SelectSQL.Add('select * from proveedores');
SelectSQL.Add('Where upper(:CAMPO) STARTING WITH :xValor');
ParamByName('CAMPO').Asstring:= cNombreCampo;
ParamByName('xValor').Asstring := EditValor.Text;
Open;
EnableControls;
DBGrid1.Refresh;
end;
end;
Gracias anticipadas.....
Tengo un DBGrid con los datos de la tabla de proveedores. Un Combo donde selecciono el campo por el que quiero buscar un valor almacenado en un control TEdit. Al rellenar el campo de busqueda y el valor a buscar me da error "Data type unknow" .... ¿Que pasa?
Aquí teneis el fragmento del código que se ejecuta al pulsar el boton de busqueda :
procedure TABMCProveedores.BitBtn1Click(Sender: TObject);
Var cNombreCampo : String;
begin
With IBProveedores do
begin
cNombreCampo:= DbGrid1.Columns[Combobox1.ItemIndex].FieldName;
DisableControls;
Close;
SelectSQL.Clear;
SelectSQL.Add('select * from proveedores');
SelectSQL.Add('Where upper(:CAMPO) STARTING WITH :xValor');
ParamByName('CAMPO').Asstring:= cNombreCampo;
ParamByName('xValor').Asstring := EditValor.Text;
Open;
EnableControls;
DBGrid1.Refresh;
end;
end;
Gracias anticipadas.....