J'utilise Access 2007 et j'ai des tables liées à une base de données mySQL. J'utilise DAO pour insérer un enregistrement dans une table liée mySQL et en essayant de récupérer le PK inséré en utilisant l'identité Select @@, mais sélectionnez retourne 0.Sélectionnez @@ Identité renvoyant 0 pour la table liée dans Access
Dim sql As String
Dim oDB As Database
Set oDB = CurrentDb
sql = "INSERT INTO Quotes (CustomerID) SELECT 1 AS Expr1;"
oDB.Execute sql
If oDB.RecordsAffected <> 1 Then
MsgBox "cannot create new quote"
Exit Function
End If
Dim rsNewID As DAO.Recordset
Set rsNewID = oDB.OpenRecordset("SELECT @@IDENTITY") ' Create a recordset and SELECT the new Identity
Dim intNewID As Long
intNewID = rsNewID(0).Value ' Store the value of the new identity in variable intNewID
'This value is 0, why?
Je l'ai vu another question like this, qui n'a pas été satisfaisante répondu pour moi
content que je pourrais aider! :) – fredrik