FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
append en lugar de post...????
hola gente, a ver si me pueden dar una manito
este form en lugar de modificar (adoqueryX.post) esta agregando nuevos registros, la verdad no le encuentro el error... procedure TForm13.Modificar1Click(Sender: TObject); begin //buscar el id adoquery2.Close; adoquery2.SQL.Text:='select id from inventario where descripcion=:a and ubicacion=:b and fecha=:c'; adoquery2.Parameters.ParamByName('a').Value:=edit2.Text; adoquery2.Parameters.ParamByName('b').Value:=edit3.Text; adoquery2.Parameters.ParamByName('c').Value:=edit6.Text; adoquery2.Open; //modificar adoquery3.Close; adoquery3.SQL.Text:='SELECT id, descripcion, ubicacion, cuit_proveedor, numero_de_factura, fecha FROM inventario where id=:a'; adoquery3.Parameters.ParamByName('a').Value:=adoquery2.fields[0].asString; adoquery3.Open; adoquery3.Edit; adoquery3.Fields[1].AsString:=edit2.Text; adoquery3.Fields[2].AsString:=edit3.Text; adoquery3.Fields[3].AsString:=edit4.Text; adoquery3.Fields[4].AsString:=edit5.Text; adoquery3.Fields[5].AsString:=datetostr(date)+' '+timetostr(time); adoquery3.Post; //edit1 es autonumerico edit1.Text:='El sistema lo ingresa'; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.text:='El sistema lo ingresa'; //refresh memo1.Text:='Recuerde que el "Libro de Inventario" debe ser actualizado manualmente y con letra manuscrita'; adoquery1.Close; adoquery1.SQL.Text:='select inventario.id, inventario.descripcion, inventario.ubicacion, inventario.CUIT_PROVEEDOR, inventario.fecha, numero_de_factura from inventario'; adoquery1.Open; dbgrid1.Columns[0].Title.caption:='Codigo de Inventario'; dbgrid1.Columns[1].Title.caption:='Descripcion'; //las ubicaciones tendrian que ser fk dbgrid1.Columns[2].Title.caption:='Ubicación'; //los proveedores tendrian que ser fk dbgrid1.Columns[3].Title.caption:='Proveedor'; dbgrid1.Columns[4].Title.caption:='Fecha'; dbgrid1.Columns[5].Title.caption:='Numero de factura'; dbgrid1.Columns[0].Width:=95; dbgrid1.Columns[1].Width:=95; dbgrid1.Columns[2].Width:=95; dbgrid1.Columns[3].Width:=95; dbgrid1.Columns[4].Width:=95; dbgrid1.Columns[5].Width:=95; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
uso de append en tabla | macro32 | Conexión con bases de datos | 5 | 21-04-2008 19:35:04 |
Error en el append | silviodp | Conexión con bases de datos | 3 | 19-12-2006 23:19:25 |
Hint /*+ Append*/ | AngelMarvin | Oracle | 0 | 04-04-2006 16:45:26 |
IBDatase Insert Post Edit Post | ariefez | Firebird e Interbase | 4 | 12-10-2005 01:53:04 |
Error al hacer un Append | Ivr | Conexión con bases de datos | 0 | 22-02-2005 11:55:19 |
|