Un INSERT dans plusieurs tables.

Bonsoir à tous,
Je programme sous VB.Net 2010 et je voudrais insérer des données dans deux tables d'une base de données Access 2007 : T_ANOMALIE et T_DEPASSEMENT.
Chacune des tables posséde un champ NuméroAuto et ces deux tables possédent une relation de type 1 à 1 entre les champs IDAnomalie.
Le problème n'est pas la création des objets d'accès aux données mais l'instruction SQL.
Je crois qu'il n'est pas possible de faire une simple instruction INSERT sur les deux tables en même temps.
Je fais donc une instruction INSERT sur ma première table puis une instruction INSERT sur ma deuxième table. Et le hic est içi... !
Pour insérer dans T_DEPASSEMENT j'ai besoin de connaitre la clé (c'est le numéro auto) qui correspond à l'enregistrement dans la 1ère table c'est à dire dans T_ANOMALIE... et là est ma question !
Comment connaitre la valeur du NuméroAuto de la ligne qui vient d'être insérée dans T_ANOMALIE ?
Existe t-il une façon plus simple de faire ça ? parexemple avec une seule instruction.
Par avance, merci.


Schéma des tables :


T_ANOMALIE
------------
IDAnomalie (clé NumAuto)
DateHeure (date)
Duree (entier)


T_DEPASSEMENT
----------------
IDDepassement (clé NumAuto)
IDAnomalie (clé étrangère)
Compose (chaine de caractères)
Valeur (entier)

http://www.mikesdotnetting.com/Artic...y-added-record

Est-ce qu'une requête imbriquée de ce type pourrait être susceptible de t'aider?

Code:

---

1 2 3 4

INSERT INTO T_DEPASSEMENT VALUES ... WHERE IDAnomalie = (SELECT IDAnomalie FROM T_ANOMALIE WHERE DateHeure = "la_date_que_tu_viens_de_rentrer")

---

Sinon, si tu as besoin d'un minimum de sécurité, je te suggèrerais plutôt d'utiliser des requêtes de type Linq ou ESQL. Même si t'en as pas besoin, c'est aussi pas si mal.

Bonsoir,

Citation:

---

Envoyé par patxy

Est-ce qu'une requête imbriquée de ce type pourrait être susceptible de t'aider?

Code:

---

1 2 3 4

INSERT INTO T_DEPASSEMENT VALUES ... WHERE IDAnomalie = (SELECT IDAnomalie FROM T_ANOMALIE WHERE DateHeure = "la_date_que_tu_viens_de_rentrer")

---

---

Surtout pas, que se passerait-il si deux personne encodait la même date? On aurait le mauvais identifiant...
la solution est dans le lien que Pol63 à posté, à savoir l'utilisation de :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'VB Dim query As String = "Insert Into Categories (CategoryName) Values (?)" Dim query2 As String = "Select @@Identity" Dim ID As Integer Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Northwind.mdb" Using conn As New OleDbConnection(connect) Using cmd As New OleDbCommand(query, conn) cmd.Parameters.AddWithValue("", Category.Text) conn.Open() cmd.ExecuteNonQuery() cmd.CommandText = query2 ID = cmd.ExecuteScalar() End Using End Using

---

Citation:

---

The key to @@Identity is that it returns the value of an autoincrement column that is generated on the same connection.

---

De cette manière, vous êtes sur de récupérer votre identifiant dernièrement inséré.

Citation:

---

Envoyé par patxy

Sinon, si tu as besoin d'un minimum de sécurité, je te suggèrerais plutôt d'utiliser des requêtes de type Linq ou ESQL. Même si t'en as pas besoin, c'est aussi pas si mal.

---

Et par quelle magie une requête Linq ou ESQL serait elle plus sure qu'une sécurisée, controlèe et (très) efficace requête SQL ?????

Bonsoir et merci à tous pour vos réponses. J'ai utilisé la technique de Pol63 et ca marche à merveille. Je vais pouvoir continuer mon projet.
Merci encore :ccool: