Ver Mensaje Individual
  #1  
Antiguo 17-03-2009
jhcaboverde jhcaboverde is offline
Miembro
 
Registrado: nov 2006
Posts: 61
Reputación: 18
jhcaboverde Va por buen camino
ayuda con AdoDataSet su CommandText y una functions

Haber tengo un Forms con un tAdoDataset, un tmemo, un tedit, un tDBgrid, y una base de datos en access. Tengo dos tcombox que lo que necesito es que al cambiar change los combos se actualice la cadena de texto que le paso al tmemo y con ello seria el sql que utiliza el adodataset para filtrar los datos.

Cuando actualizo el tmemo con la cadena lo hace ok pero siempre me pone una ultima linea del try 'error en datos' y solo queria que saliera eso cuando la cadena pasada al adodataset tuviera errores, a lo mejor estoy utilizando mal el try.

Recuerden tengo tres combobox con este mismo codigo:

procedure TANEXO1.F_INICIOChange(Sender: TObject);
begin
Edit1.Text :=DateToStr( F_INICIO.DateTime +6 );
Memo1.Lines.Clear;
Memo1.lines.add('select * from ANEXO_1' + ' where PAIS=' + QuotedStr(Combobox1.Text) +
' and AREA=' + QuotedStr(AREA.Text) + ' and S_F_INICIO=#' + datetostr(f_inicio.DateTime) +
'# and S_F_FIN=#' + edit1.Text + '# order by PAIS, FECHA_VTTO;');

AdoDataSet1.Close;
AdoDataSet1.CommandText:=memo1.Text;
AdoDataSet1.Active :=True;
try
Memo1.Lines.Add('error en datos')
finally

end;
end;
Responder Con Cita