Discussion :

[marot_r]

Bonjour à tous et merci de votre aide.

J'ai une BD Oracle attchée à mon appli Access. Cette appli est multi-postes, multi-utilisateur.

Lorsque j'ajoute un enr dans une de mes tables, cela met environ 1mn ce qui est TREEEEES long !

Le code pour l'ajout est le classique .AddNew sur un objet recordset.

J'ai fait un test avec un INSERT SQL et l'ajout devient quasiment instantané (< 1s).

Mon problème est que cette table comporte un champ clef calculé par Oracle que mon application réutilise.

Avec l'objet recorset je n'ai pas de problème à retrouver ma valeur calculée mais après un INSERT SQL comment trouver la clef calculée. Sachant que d'autres utilisateurs ont pu ajouter d'autres enregistrements dans la même table, prendre le Max(Clef) ne marche pas.

A+

[mout1234]

Bonsoir Marot_r,

Lorsque j'ajoute un enr dans une de mes tables, cela met environ 1mn ce qui est TREEEEES long !

En passant - même si ce n'est pas ta question - regarde de plus prés tes drivers ODBC... je me souviens il y a quelques temps avoir résolu des problèmes de temps de réponse en changeant simplement de driver...


Sinon pour résoudre ton problème d'identification, tu pourrai peut-être ajouter un GUID que tu fournis à ta requête INSERT (paramètre) .

Bon courage

[loufab]

Avec ODBC les requêtes sont toujours préférables aux accès direct.

[Philippe PONS]

Concernant la première question, il me semble que si tu places l'INSERT et le SELECT, qui récupère l'identifiant du dernier enregistrement, dans une TRANSACTION, tu dois pouvoir être assuré de bien récupérer l'identifiant de la ligne que tu viens de créer.
Philippe

[random]

dans ce genre de situation un technique naîve est dans un champ texte
de mettre une donnée bidon
soit à entrer 12 allée des zombis

mavar=adresse
recup=utilisateur+time
adresse=recup

insertion

on peut alors récupérer l'enregistrement where adresse =recup
et le mettre à jour

[mout1234]

dans ce genre de situation un technique naîve est dans un champ texte
de mettre une donnée bidon
soit à entrer 12 allée des zombis

mavar=adresse
recup=utilisateur+time
adresse=recup

insertion

on peut alors récupérer l'enregistrement where adresse =recup
et le mettre à jour

Salut random,

Ton astuce est intéressante mais dans une base multi-utilisateur, tu risques d'avoir des soucis non? d'où ma précédente préconisation dans le même esprit mais avec un GUID.

[vodiem]

et si on se la joue à la barbare:
rechercher la dernier clef calculé ayant dans l'enregistrement tous les champs insérés précédemment n'ayant pas de laison avec d'autres tables...

Philippe PONS: la transaction ne fonctionne pas dans le cadre des requetes.
même le verrouillage de la table, n'empêche pas l'insertion par requete...
donc pour savoir quel enregistrement viens d'être crée après une requete y pas 36 solus...

encore que: si tu faisais une fonction d'insertion avec un flag cela pourrait résoudre le pb.
tant qu'il y a un flag: pas d'insertion possible donc pas d'erreur possible sur Max(Clef).

[marot_r]

Merci de vos réponses, l'idée d'ajouter un champ clef supplémentaire me parait interressante et assez simple à mettre en oeuvre. En plus c'est une solution à autre de mes bugs.

Mais mout1234, question bête, comment tu crées ou obtient un GUID en Access ?

A+

[mout1234]

Merci de vos réponses, l'idée d'ajouter un champ clef supplémentaire me parait interressante et assez simple à mettre en oeuvre. En plus c'est une solution à autre de mes bugs.

Mais mout1234, question bête, comment tu crées ou obtient un GUID en Access ?

A+

Bonsoir Marot_r.

Bonne question je suis sur de l'avoir déjà fait il y a quelques temps dans Access et cela n'était pas compliqué... mias je ne retrouve pas .

Sinon, voila une solution trouvée sur msdn:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long
 
Public Function GetGUID() As String
Dim udtGUID As GUID
 
If (CoCreateGuid(udtGUID) = 0) Then
 
    GetGUID = _
    String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
    String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
    String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
    IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
    IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
    IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
    IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
    IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
    IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
    IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
    IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
End If
 
End Function

[loufab]

GUID est le format pour les N° de réplication... Maintenant est-ce la même chose perso je ne suis pas un spécialiste de la réplication.

[mout1234]

GUID est le format pour les N° de réplication... Maintenant est-ce la même chose perso je ne suis pas un spécialiste de la réplication.

Je crois plutot que j'avais fait appel à l'époque à SQL Server (c'était dans le cadre d'un projet adp/SQL Server)...

Enfin bon... si j'y pense ... j'essaierai de retrouver ce code histoire de voir comment j'avais créé des UID.

En attendant, l'API que j'ai trouvé semble trés bien marcher.

A+
Lolo