Ver Mensaje Individual
  #2  
Antiguo 30-08-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Aunque el tema ya se contesto aqui, me parece que todavía no te queda claro.
Para hacer un insert en varias tablas es lo mismo que en una.
No importa si están relacionadas o no, esto solo afectara a la hora de relacionar la información, pero para mostrarla, no para insertarla o modificarla.
Ahora, para insertar lo que se necesita es:
1- Tener un query.
2- Hacer una sentencia sql.
3- Grabar la informacion.

El paso 3 se puede hacer, o bien directo, osea que se insertara pero no se veran los resultados en el form o viéndolos, me explico con este comando (ExecSQL) se hace directo y simplemente abriendo el query se hace visible.
Veamos que usa la sentencia sql:
las palabras Instert Into, seguido por el nombre de la tabla, entre paréntesis (Los campos que se quieren insertar de esa tabla) a continuacion la palabra Values y entre parentesis los (datos que quieres insertar).
Veamos un ejemplo:
El Query: Query1
La tabla: Tabla1
Los Campos: Id, Nombre, Apellido.
La Información: Edit1, Edit2, Edit3.
Ahora insertaremos en esa tabla:
Código Delphi [-]
Query1.SQL.Text := 'Insert Into Tabla1 (Id, Nombre, Apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
Query1.ExecSQL; // aqui la informacion se graba.
// Si quisieramos ver la informacion en algun dbgrid etc, abriríamos el query directamente, con (Query1.Open) en vez de (Query1.ExecSQL).
Ejemplo de dos o mas tablas:
El Query: Query1 (uno solo)
Las tablas: Tabla1, tabla2
Los Campos: tabla1(Id, Nombre, Apellido), tabla2(Id, telefono1,telefono2).
La Información: Edit1, Edit2, Edit3, Edit4, edit5.
Ahora insertaremos en las tablas:
Código Delphi [-]
// tabla1
Query1.SQL.Text := 'Insert Into Tabla1 (Id, Nombre, Apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
Query1.ExecSQL;
// tabla2
Query1.SQL.Text := 'Insert Into Tabla2 (Id, Telefono1, Telefono2) '+
                          'Values (' +Edit1.Text+', '+Edit4.Text+', '+Edit5.Text')'
Query1.ExecSQL;
// y asi sucesivamente.
Como ves el campo ID esta relacionado en las dos tablas y la información esta en el Edit1.
Espero que te quede mas claro y te sirva.
Saludos
__________________
Siempre Novato
Responder Con Cita