perdon alguien me puede ayudar
 

tengo un problema en una aplicacion q estoy realizando , en delphi version 5 , con un boton q cree para guardar la informacion en una tabla paradox , el codigo q puse en el boton es el siguiente

with qgrabar do
begin

sql.Clear;
sql.Add('Insert into paciente (codpac,nompac,direccion,telef1,telef2,madre,padre,termino,condic,peso,hfenferm1,hfenferm2,hftubercu )');

sql.Add('values(:cod,:nompac,:direccion,:telef1,:telef2,:madre,:padre,:termino,:condic,:peso,:hfenfe rm1,:hfenferm2,:hftubercu)');
ParamByName('cod').Value:=edit1.text;
ParamByName('nompac').Value:=DBEdit2.text;
ParamByName('direccion').Value:=DBEdit13.text;
ParamByName('telef1').Value:=QgpacienteTelef1.value;
ParamByName('telef2').Value:=QgpacienteTelef2.value;
ParamByName('madre').Value:=DBEdit6.Text;
ParamByName('padre').Value:=DBEdit7.Text;
ParamByName('termino').Value:=DBEdit8.Text;
ParamByName('condic').Value:=DBEdit9.Text;
ParamByName('peso').Value:=QgpacientePeso.value;
ParamByName('hfenferm1').Value:=DBEdit11.Text;
ParamByName('hfenferm2').Value:=DBEdit12.Text;
ParamByName('hftubercu').Value:=QgpacienteHftubercu.value;

sql.Clear;
sql.Add('Insert into paciente (hfalergia,hfcongeni,hfdiabete,hfconvul,entosferi,ensaranpi,enrubeola,enpaperas,envaricel,enescarla, endifteri,enoperaci,enamebios,enapendic,enfiebre,enortistis,enirs,enamig,enconvu,enconsti,endiarre') ;

sql.Add('values(:hfalergia,:hfcongeni,:hfdiabete,:hfconvul,:entosferi,:ensaranpi,:enrubeola,:enpaper as,:envaricel,:enescarla,:endifteri,:enoperaci,:enamebios,:enapendic,:enfiebre,:enortitis,:enirs,:en amig,:enconvu,:enconsti,:endiarre');
ParamByName('hfalergia').Value:=QgpacienteHfalergia.value;
ParamByName('hfcongeni').Value:=QgpacienteHfcongeni.value;
ParamByName('hfdiabete').Value:=QgpacienteHfdiabete.value;
ParamByName('hfconvul').Value:=QgpacienteHfconvul.value;
ParamByName('entosferi').Value:=QgpacienteEntosferi.value;
ParamByName('ensaranpi').Value:=QgpacienteEnsaranpi.value;
ParamByName('enrubeola').Value:=QgpacienteEnrubeola.value;
ParamByName('enpaperas').Value:=QgpacienteEnpaperas.value;
ParamByName('envaricel').Value:=QgpacienteEnvaricel.value;
ParamByName('enescarla').Value:=QgpacienteEnescarla.value;
ParamByName('endifteri').Value:=QgpacienteEndifteri.value;
ParamByName('enoperaci').Value:=QgpacienteEnoperaci.value;
ParamByName('enamebios').Value:=QgpacienteEnamebios.value;
ParamByName('enapendic').Value:=QgpacienteEnapendic.value;
ParamByName('enfiebre').Value:=QgpacienteEnfiebre.value;
ParamByName('enortitis').Value:=QgpacienteEnortitis.value;
ParamByName('enirs').Value:=QgpacienteEnirs.value;
ParamByName('enamig').Value:=QgpacienteEnamig.value;
ParamByName('enconvu').Value:=QgpacienteEnconvu.value;
ParamByName('enconsti').Value:=QgpacienteEnconsti.value;
ParamByName('endiarre').Value:=QgpacienteEndiarre.value;

sql.Clear;
sql.Add('Insert into paciente (indpt,indt,inpolio,insaramp,inpapera,inrubeola,intubercu,inbcg,invaricel,inhepatit,inmenegi)');

sql.Add('values:indpt,:indt,:inpolio,:insaramp,:inpapera,:inrubeola,:intubercu,:inbcg,:invaricel,:in hepatit,:inmenegi)');
ParamByName('indpt').Value:=QgpacienteIndpt.value;
ParamByName('indt').Value:=QgpacienteIndt.value;
ParamByName('inpolio').Value:=QgpacienteInpolio.value;
ParamByName('insaramp').Value:=QgpacienteInsaramp.value;
ParamByName('inpapera').Value:=QgpacienteInpapera.value;
ParamByName('inrubeola').Value:=QgpacienteInrubeola.value;
ParamByName('intubercu').Value:=QgpacienteIntubercu.value;
ParamByName('inbcg').Value:=QgpacienteInbcg.value;
ParamByName('invaricel').Value:=QgpacienteInvaricel.value;
ParamByName('inhepatit').Value:=QgpacienteInhepatit.value;
ParamByName('inmenegi').Value:=QgpacienteInmenegi.value;
ExecSQL;

end;

Hola faoa2000.

En primer lugar, te doy la bienvenida a los foros del clubdelphi. Te recomiendo una lectura de:

• La guia de estilo de los foros, donde encontrarás las reglas básicas de convivencia aqui. Veras, al leerla, que el título que has colocado a tu hilo es inapropiado.
• El uso de la etiqueta code, asi como el uso de las nuevas etiquetas vB, para publicar trozos de código indentados y con la sintaxis resaltada.

Por último, creo que has publicado demasiadas lineas de código, y en cambio, has olvidado decir cual es tu problema. A simple vista, y como una atención a que sos nuevo en el club, se decirte que solamente se insertará un registro en la tabla paciente..... dado que obvias llamar al método ExecSQL luego de la asignación de parámetros de los dos primeros.

Se decirte que si seguis publicando código asi, pocos le pondrán atención dado su dificil lectura.

hasta luego.

;)