FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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,adre,:termino,:condic,eso,: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; |
#2
|
||||
|
||||
Hola faoa2000.
En primer lugar, te doy la bienvenida a los foros del clubdelphi. Te recomiendo una lectura de:
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.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
|
|