![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
Hola:
No entiendo ....Pone algo de código, así será mejor la ayuda que te puedan brindar... Saludos. |
|
#2
|
||||
|
||||
|
Saludos
Cita:
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
|
#3
|
|||
|
|||
|
Hola Aqui tienes el codigo del procedimiento:
procedure adaptar_pad(var x,y,desig: string); var aux,cadena: string; begin aux:=ExtractFilePath(Application.ExeName)+'\bases de datos\componentes gerber.mdb'; cadena:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+aux+';Persist Security Info=False'; FComponente.TablaPad.ConnectionString:=cadena; FComponente.TablaNodo.ConnectionString:=cadena; FComponente.TablaNodo.Open; FComponente.TablaNodo.First; FComponente.TablaPad.Open; while not (FComponente.TablaNodo.Eof) do begin FComponente.TablaPad.Append; FComponente.TablaPad.FieldValues['identificador_pad']:=desig; FComponente.TablaPad.FieldValues['localizacion_x']:=x; FComponente.TablaPad.FieldValues['localizacion_y']:=y; FComponente.TablaPad.Post; end; end; y la llamada del procedimiento es adaptar_pad(x1,y1,designador); Gracias |
|
#4
|
||||
|
||||
|
Que componentes usas?
Cita:
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
|
#5
|
|||
|
|||
|
Hola,
Todas las tablas son componentes ADO y son de ACCESS. |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|