VB6 access requete INSERT

Bonsoir à tous,

je dois faire une requete INSERT vers une base ACCESS depuis VB6.
J'ai donc créer un dataEnvironnement, ma requete, je l'execute.
Ca marche, nickel.

Mon problème, j'aimerais récuperer l'id(auto increment) de l'enregistrement qui viens d'etre créer. Qui serait l'equivalent de mysql_insert_id en PHP.

J'ai rien trouvé sur google pour l'instant...

Ne serait-il pas possible d'accéder aux enregistrements de ta table, puis d'aller chercher l'ID du dernier enregistrement (celui que tu viens de créer)?

... Probablement pas la meilleure méthode mais...

Jy es pensé aussi, seulement la base sera attaqué par plusieurs personnes donc j'aurais pas forcement l'id qui correspond à mon enregistrement

Quelques idées

Bon... alors, j'ai quelques idées qui pourraient t'aider

Premièrement, ne pas gérer le problème en espérant qu'il ne se produira pas...;)

Non, sérieusement...

Je crois que j'ai trouvé une méthode plus ou moins efficace pour gérer cette "erreur".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 ' On déclare un tableau de chaine de caractère qui contiendra les ' valeurs que tu veux insérer dans ta table Dim strChaines(n) As String ' Je ne suis pas sur de toute la syntaxe, ' présentement, je n'ai pas VB6 ' Pour la boucle Dim verif As Boolean ' Pour récupérer le numéroAuto de la table Dim indexTable As Integer ' Puis on déclare 2 recordsets Dim rst1 As RecordSet Dim rst2 As RecordSet ' Et finalement, une chaine de requete Dim maRequete As String ' Initialisation verif = False strChaines(0) = "maValeur1" strChaines(1) = "maValeur2" ... ' Tu effectues ta première requête en utilisant la chaine de connexion maRequete = "SELECT * FROM tablePourLeInsert" rst1.Open maRequete 'Je ne me rappelle plus trop la syntaxe ' Ensuite tu fais ton INSERT en te servant des champs entrés dans le tableau ' Cela je ne me rappelle vraiment plus la syntaxe...désolé ' Puis tu effectues ta requête 2 qui est exactement la même que la 1 mais ' après le INSERT rst2.Open maRequete 'Je ne me rappelle plus trop la syntaxe encore ' On se déplace sur les derniers enregistrements des 2 requêtes rst1.MoveLast rst2.MoveLast ' On vérifie l'écart entre les index (numéroAutos de la table) If(rst2(0) - rst1(0) = 1) Then ' Alors aucune requête n'a été effectuée entre ' temps indexTable = rst2(0) Else ' C'est là qu'il peut y avoir un problème While (verif = False) If (rst2(0) = strChaines(0) And rst2(1) = strChaines(1)) Then ' And ... pour tous les champs ' C'est sur que tu peux remplacer par une boucle... je viens d'y ' penser... tu te sers d'un compteur de champs correspondants... verif = True indexTable = rst2(0) Else ' Il ne faut pas négliger la possibilité que plusieurs INSERT aient été ' faits entre tes requêtes rst2.MoveBack End If Wend End If ... ' D'autre code que tu voudrais p-e effectuer
Bon... c'est l'idée générale de la méthode simple et +/- efficace que j'ai trouvée. Il se peut qu'il y ait des erreurs, je ne suis pas sur un poste ou je peux tester mon code... Alors considère le comme un algo approximatif.

L'autre concept est plus complexe et je ne sais pas si on peux le reproduire dans un projet VB. Il s'agit de créer une section critique comme dans les systèmes d'exploitation.

Une section critique fait que plusieurs opérations n'ont pas le choix d'être effectuées une à la suite de l'autre et sans interruptions... Cela règlerait ton problème car tu n'aurais qu'à faire ton INSERT puis ton SELECT en tant que section critique... Sauf que comme je l'ai dis... c'est p-e impossible...

Bien voilà!