Incrementation index sql

Bonjour à tous,

J'ai un petit soucis au niveau code.

A la reception d'un mail je dois lancé une maco qui recupere le mailm et qui l'insere dans une base sql (système ticketing), sauf que le numéro de ticket ne bouge jamais, il m'indique toujours le meme.

Voici le bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim sq As String
            sq = "INSERT INTO dticket VALUES ('','" & objsubject & "','" & objcategory & "','" & objheader & "','" & MonMail.Importance & "','" & objsender & "','" & objsendermail & "','','" & objreceipt & "','" & objreceivedate & "'','" & objsavedate & "','','','" & objBody & "','','','','O','','','','','',''," & domain & ",'')"
            Set r = c.Execute(sq)
            r.Close
 
 
            Dim get_id_req As String
            Dim dticket_id As String
 
            get_id_req = "select dticket_id from dticket order by dticket_id DESC limit 0,1"
            'get_id_req = "select last_insert_id()"
            Set r = c.Execute(get_id_req)
            If Not r.EOF Then
                dticket_id = r.Fields(0)
            Else
                dticket_id = ""
            End If
            r.Close

Il reste toujours au numéro 55522, et au niveau de l'interface, je ne vois pas mon ticket de créer.

Quelqu'un peut-il m'aider svp?