Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-05-2004
jplj jplj is offline
Miembro
 
Registrado: oct 2003
Posts: 189
Poder: 21
jplj Va por buen camino
Obtener ClaveMaestra del registro insertado.

Tengo dos tablas en una DB de Access 97.
Código:
Campos Tabla1:
Id: Autonumérico y Clave Maestra. Numero: Numérico. Nombre: Texto.
Campos Tabla2:
Id: Autonumérico y Clave Maestra. Numero: Numérico
He creado una relación de uno a varios entre los campos Tabla1-Id y Tabla2-Numero en la que se exige integridad referencial.

Con ADO estoy intentando insertar un registro en Tabla1 y simultánemente insertar en Tabla2 una serie de registros vinculados al registro que inserto en Tabla1.

Código Delphi [-]
var
   i, j, k : Integer;
begin
ADOTable1.Append; ADOTable1Numero.AsInteger:= i; ADOTable1Nombre.AsString:= 'Número : ' +IntToStr(i); ADOTable1.Post; // Ahora asignar a k el valor del campo Id del registro insertado en Tabla1 for j:= 0 to 15 do begin
ADOTable2.Append; ADOTable2Numero.AsInteger:= k;
end; ADOTable2.Post;


El problema lo tengo para obtener el valor que se le ha asignado al campo ID al insertar el registro en la Tabla1, teniendo en cuenta que simultáneeamente otras apliaciones pueden realizar lo mismo.

¿Cómo podría obtenerlo?

Gracias de antemano.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 03:45:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi