Discussion :

[guiguikawa]

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
Public Function enregistreReparationMateriel(raison, centre, codeArticle, numDDSIS, marque, numSerie As String) As Boolean
Dim req As String
    If UCase(raison) = "VERIFICATION PREVENTIVE" Then
        raison = "Vérification préventive"
    End If
    If UCase(raison) = "PANNE" Then
        raison = "Panne"
    End If
    On Error GoTo err
    req = "insert into " & lireIni("depot", "fichier") & " (raison,centre_de_secours,code_article,n_ddsis,marque,`N°série`) values (" & Chr(34) & raison & Chr(34) & "," & Chr(34) & centre & Chr(34) & "," & Chr(34) & codeArticle & Chr(34) & "," & Chr(34) & numDDSIS & Chr(34) & "," & Chr(34) & marque & Chr(34) & "," & Chr(34) & numSerie & Chr(34) & ")"
    cmdTmp.ActiveConnection = cnx
    cmdTmp.CommandText = req
    cnx.BeginTrans
    cmdTmp.Execute
    cnx.CommitTrans
    enregistreReparationMateriel = True
    Exit Function
err:
    cnx.RollbackTrans
    MsgBox err.Description
    enregistreReparationMateriel = False
End Function

En gros ici, j'insère des éléments dans une table. C'est une transaction n'y a-t-il pas moyen de récupérer au cours de la transaction l'ID ainsi créé ???

ID automatique dans ma table j'ai oublié de préciser.

Le sgbd c'est filemaker
Le prog est en VB 6

[guiguikawa]

Code :

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

1
2
3
4
5
6
7
8
9
req = "insert into ...."
    cmdTmp.ActiveConnection = cnx
    cmdTmp.CommandText = req
    cnx.BeginTrans
    cmdTmp.Execute
    reqId = "select @@identity"
    'dsTmp.Open req, cnx
    cnx.CommitTrans
    MsgBox reqId

ça marche pas. Quelqu'un peut-il me filer un petit coup de main svp ?

[Le Pharaon]

Le point essentiel d'une transaction est qu'il assemble plusieurs étapes en une seule opération tout-ou-rien. Je ne vois pas l'utilité de ta transaction.

[Phifi]

Probablement afin d'alimenter une autre table dans le même temps et d'utiliser ce champ auto_increment (ID) comme index dans cette seconde table.

Il existe pour MySQL une fonction interne LAST_INSERT_ID() qui renvoie ce dont tu as besoin. Peut-être trouveras-tu l'équivalent sous FM.

[Le Pharaon]

Il serait nécessaire de préciser le SGBD.

[Phifi]

Le sgbd c'est filemaker
Le prog est en VB 6

[Le Pharaon]

@Phifi, j'ai oublié mes lunettes

Je ne connais pas filemaker, mais avec access l'astuce était de créer dans la table un champs supplémentaire TimeStamp (l'heure d'execution de la requête d'insertion, format hh:mm:ss).

Code :

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

1
2
3
4
5
6
7
Dim sqlSelect As String
Dim TimeStamp As String
 
TimeStamp = Now()
 
sqlInsert = " INSERT INTO nomTable ( ..., TimeStamp ) Values (...,'" & TimeStamp & "') "
sqlSelect = " INSERT idTable FROM nomTable  Where TimeStamp  '" & TimeStamp & "' "