cheoac
10-07-2008, 16:15:49
Hola soy nuevo en el foro y tambien en delphi....tengo un problema que no se como remediarlo......tengo un formulario donde inserto datos.....cuando le doy al boton de insertar inserta los datos (me doy cuenta por o eo en la base de datos)...pero cuando cierro el formulario y abro otro dodne tengo un grid no aparencen los datos.......aparecen hasta que cierro toda la aplicacion y la vuelvo a abrir...este es mi codigo.....
query.Close;
query.SQL.Clear;
query.SQL.Text:='insert into candidatos(can_nom,can_apell,can_dir,can_tel,can_fecha,can_edad,can_mail,can_matricula,can_status,ca n_sexo,can_reg,can_par) values (:nom,:apell,:dir,:tel,:fecha,:edad,:mail,:matricula,:status,:sexo,:reg,:par)';
query.Params.ParamByName('nom').Value:=edit1.Text;
query.Params.ParamByName('apell').Value:=edit2.Text;
query.Params.ParamByName('dir').Value:=edit3.Text;
query.Params.ParamByName('tel').Value:=edit4.Text;
query.Params.ParamByName('fecha').Value:=edit5.Text;
query.Params.ParamByName('edad').Value:=edit6.Text;
query.Params.ParamByName('mail').Value:=edit7.Text;
query.Params.ParamByName('matricula').Value:=edit8.Text;
query.Params.ParamByName('status').Value:=combobox1.Text;
query.Params.ParamByName('sexo').Value:=rad1;
query.Params.ParamByName('reg').Value:=combobox2.Text;
query.Params.ParamByName('par').Value:=combobox3.Text;
query.ExecSQL;
query.Close;
query.SQL.Clear;
query.SQL.Text:='insert into candidatos(can_nom,can_apell,can_dir,can_tel,can_fecha,can_edad,can_mail,can_matricula,can_status,ca n_sexo,can_reg,can_par) values (:nom,:apell,:dir,:tel,:fecha,:edad,:mail,:matricula,:status,:sexo,:reg,:par)';
query.Params.ParamByName('nom').Value:=edit1.Text;
query.Params.ParamByName('apell').Value:=edit2.Text;
query.Params.ParamByName('dir').Value:=edit3.Text;
query.Params.ParamByName('tel').Value:=edit4.Text;
query.Params.ParamByName('fecha').Value:=edit5.Text;
query.Params.ParamByName('edad').Value:=edit6.Text;
query.Params.ParamByName('mail').Value:=edit7.Text;
query.Params.ParamByName('matricula').Value:=edit8.Text;
query.Params.ParamByName('status').Value:=combobox1.Text;
query.Params.ParamByName('sexo').Value:=rad1;
query.Params.ParamByName('reg').Value:=combobox2.Text;
query.Params.ParamByName('par').Value:=combobox3.Text;
query.ExecSQL;