kryna
22-04-2005, 16:30:40
hola!!!
mi problema consiste en que esoy insertando registros en tablas paradox(son 3)
y en la tabla no me lo esta insertando como deberia me esta sbreescribiendo el registro anterior.. me explico
cuando inserto el registro 1 me lo copia en la fila cuyo indice numero1
cuando inserto el registro 2 me lo copia en la fila cuyo indice es numero 2 pero tambien el la fila anterior (osea la fila 1)..
cuando inserto el registro 3 me lo copia en la fila cuyo indice es numero 3 pero tambien el la fila anterior (osea la fila 2)...
osea me lo copia en la fila ql corresponde y tambien el la fila anterior..
if not Tbconcepto.active then Tbconcepto.open;
Tbconcepto.Insert;
Tbconcepto.FieldByName('cod_concepto').AsString := clave5;
Tbconcepto.FieldByName('cod_especialidad').AsString := clave;
Tbconcepto.FieldByName('descripcion_concepto').AsString := clave3;
try
Tbconcepto.Post;
except
Showmessage('Error insertando registro');
end;
Tbconcepto.FlushBuffers;
Tbconcepto.Close;
if not Tbcostos.active then Tbcostos.open;
Tbcostos.Insert;
Tbcostos.FieldByName('cod_concepto').AsString := clave5;
Tbcostos.FieldByName('costo').AsString := clavem;
Tbcostos.FieldByName('fecha').AsString := clavef;
try
Tbcostos.Post;
except
Showmessage('Error insertando registro');
end;
Tbcostos.FlushBuffers;
Tbcostos.Close;
if not Tbespecialidad.active then Tbespecialidad.open;
Tbespecialidad.Insert;
Tbespecialidad.FieldByName('cod_especialidad').AsString := clave;
Tbespecialidad.FieldByName('descripcion_especialidad').AsString := clave4;
Tbespecialidad.FieldByName('orden').AsString := claveo;
Tbespecialidad.FieldByName('nota').AsString := claven;
try
Tbespecialidad.Post;
except
Showmessage('Error insertando registro');
end;
Tbespecialidad.FlushBuffers;
Tbespecialidad.Close;
A otra cosa estoy usando entes de la insercion un Tquery para verificar si existe o no el registro..
kryna
mi problema consiste en que esoy insertando registros en tablas paradox(son 3)
y en la tabla no me lo esta insertando como deberia me esta sbreescribiendo el registro anterior.. me explico
cuando inserto el registro 1 me lo copia en la fila cuyo indice numero1
cuando inserto el registro 2 me lo copia en la fila cuyo indice es numero 2 pero tambien el la fila anterior (osea la fila 1)..
cuando inserto el registro 3 me lo copia en la fila cuyo indice es numero 3 pero tambien el la fila anterior (osea la fila 2)...
osea me lo copia en la fila ql corresponde y tambien el la fila anterior..
if not Tbconcepto.active then Tbconcepto.open;
Tbconcepto.Insert;
Tbconcepto.FieldByName('cod_concepto').AsString := clave5;
Tbconcepto.FieldByName('cod_especialidad').AsString := clave;
Tbconcepto.FieldByName('descripcion_concepto').AsString := clave3;
try
Tbconcepto.Post;
except
Showmessage('Error insertando registro');
end;
Tbconcepto.FlushBuffers;
Tbconcepto.Close;
if not Tbcostos.active then Tbcostos.open;
Tbcostos.Insert;
Tbcostos.FieldByName('cod_concepto').AsString := clave5;
Tbcostos.FieldByName('costo').AsString := clavem;
Tbcostos.FieldByName('fecha').AsString := clavef;
try
Tbcostos.Post;
except
Showmessage('Error insertando registro');
end;
Tbcostos.FlushBuffers;
Tbcostos.Close;
if not Tbespecialidad.active then Tbespecialidad.open;
Tbespecialidad.Insert;
Tbespecialidad.FieldByName('cod_especialidad').AsString := clave;
Tbespecialidad.FieldByName('descripcion_especialidad').AsString := clave4;
Tbespecialidad.FieldByName('orden').AsString := claveo;
Tbespecialidad.FieldByName('nota').AsString := claven;
try
Tbespecialidad.Post;
except
Showmessage('Error insertando registro');
end;
Tbespecialidad.FlushBuffers;
Tbespecialidad.Close;
A otra cosa estoy usando entes de la insercion un Tquery para verificar si existe o no el registro..
kryna