![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
![]() Hola:
estoy modificando un codigo que me dieron, solo que no tengo la menor idea de que hacer con este codigo. Para entrar mas en tema le comento. no se como hace la insecion de los datos y la verdad no tengo idea. debo insertar datos [integer,string,date,memo,time.]
![]() ![]() ![]() Muchas gracias por su ayuda. |
#2
|
||||
|
||||
![]() ya solucione mi problema.
Código Delphi [-]function miDB.ag_ejemplo(ejemplo: TTejemplo): Integer; var mio: TADODataSet; tptStream: TMemoryStream; id: Integer; begin // get DB data and append one row mio := TADODataSet.Create(nil); mio.Connection := connection; mio.CursorType := ctStatic; mio.LockType := ltOptimistic; mio.CommandText := 'SELECT * FROM MyData'; mio.Open(); mio.Append(); tptStream := TMemoryStream.Create(); tptStream.write(template.tpt^, template.size); (mio.FieldByName('template') as TBlobField).LoadFromStream(tptStream); //****************************************************** mio.FieldByName('nombres').AsString := template.Tnombres; mio.FieldByName('apaterno').AsString := template.Tapaterno; mio.FieldByName('amaterno').AsString := template.Tamaterno; mio.FieldByName('fecha').AsDateTime:= template.Tfecha; mio.FieldByName('direccion').AsString := template.Tdireccion; mio.FieldByName('depto').AsString := template.Tdepto; mio.FieldByName('cp').AsInteger := template.TCP; mio.FieldByName('colonia').AsString := template.Tcolonia; mio.FieldByName('nempleado').AsInteger := template.Tnempleado; //****************************************************** mio.post(); // get the ID of enrolled template. id := mio.FieldByName('ID').AsInteger; tptStream.Free(); mio.Close(); mio.Free(); ag_ejemplo := id; end; |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
insercion en GDB | vroa74 | Conexión con bases de datos | 1 | 22-03-2007 11:09:39 |
Insercion de fecha | Alexita22 | MySQL | 5 | 06-07-2006 18:57:44 |
Error de Inserción con IBX | MALBOTO22 | Conexión con bases de datos | 2 | 16-05-2006 00:16:25 |
Cancelar insercion | el_barto | Conexión con bases de datos | 2 | 26-07-2005 00:26:26 |
Inserción de comprobante | Ulises | Providers | 0 | 25-07-2003 04:15:13 |
![]() |
|