Insertar datos en 2 tablas, ayudaa

[[Caral]]

Hola

Empezado por einarcito

osea vamos de nuevo, tengo un form si? donde tengo 5 Tedit, perfecto? tengo dos tablas tabla 1 y tabla2 relacionadas, quiero guardar los datos nada mas... como seria la sentencia en sql... Gracias

Ahora que hacemos amigo maeyanes.
Saludos

[[maeyanes]]

Empezado por Caral

Hola


Ahora que hacemos amigo maeyanes.
Saludos

Pues depende mucho del motor de base de datos, y de los componentes de acceso que está utilizando...


Saludos...

[einarcito]

estoy trabajando con el sql server 2000, como seria entonces obtener el id del padre estoy un poco perdido nunca he trabajado con tablas relacionadas siempre con una tabla que mantiene todos los datos, Ahora bien me podrias ayudar con esos dos inserts o la manera de insertar estos datos. Gracias

[[egostar]]

Yo creo que deberiamos de comenzar por saber la estructura de las dos tablas, de esa forma sabremos si con solo 5 edit's es suficiente para cargar los datos a las tablas.

Salud OS

[einarcito]

tabla1: id(primaria), nombre, apellido, tabla2: id(foranea), telefono 1, telefono 2...son edit, para el id, nombre, apellido, telefono 1 y telefono 2.

[[Caral]]

Hola
A ojo

Código Delphi [-]
QTemp.SQL.Text := 'Insert Into MiTabla1 (Id, nombre, apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
QTemp.ExecSQL;
QTemp.SQL.Text := 'Insert Into MiTabla2 (id_C, telefono_1, telefono_2) '+
                          'Values (' +Edit4.Text+', '+Edit5.Text+', '+Edit6.Text')'
QTemp.ExecSQL;

Saludos

[[egostar]]

Empezado por Caral

Hola
A ojo

Código Delphi [-]
QTemp.SQL.Text := 'Insert Into MiTabla1 (Id, nombre, apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
QTemp.ExecSQL;
QTemp.SQL.Text := 'Insert Into MiTabla2 (id_C, telefono_1, telefono_2) '+
                          'Values (' +Edit4.Text+', '+Edit5.Text+', '+Edit6.Text')'
QTemp.ExecSQL;

Saludos

Hey amigo, ya te sobraron Edit's

Código Delphi [-]
QTemp.SQL.Text := 'Insert Into MiTabla1 (Id, nombre, apellido) '+
                          'Values (' +Edit1.Text+', '+Edit2.Text+', '+Edit3.Text')'
QTemp.ExecSQL;
QTemp.SQL.Text := 'Insert Into MiTabla2 (id_C, telefono_1, telefono_2) '+
                          'Values (' +Edit1.Text+', '+Edit4.Text+', '+Edit5.Text')'
QTemp.ExecSQL;

Salud OS

[[Caral]]

Hola
No seas pesado que ya dije a OJO.
Saludos

[[egostar]]

Empezado por Caral

Hola
No seas pesado que ya dije a OJO.
Saludos

, que pendejo, bueno pues que valga, eres un perro viejo....

Salud OS

[[felipe88]]

Empezado por einarcito

estoy trabajando con el sql server 2000, como seria entonces obtener el id del padre estoy un poco perdido nunca he trabajado con tablas relacionadas siempre con una tabla que mantiene todos los datos, Ahora bien me podrias ayudar con esos dos inserts o la manera de insertar estos datos. Gracias

Y porque no puedes usar un TTable ...

[einarcito]

sip estoy con dos Ttable una para la tabla 1y la otra para la tabla2 pero no se como hcaer para insertar los datos porque las tengo relacionadas.

[einarcito]

bueno caral gracias creo que estoy haciendome enrierdos voy a intetarlo si tengo problemas no dudes que te voy a volver moestar jajaja adios gracias

[[felipe88]]

Creo que termine un tanto confundido