application.lock et adodb.recordset sous sql server

salut à tous!

j'utilise la methode application.lock et application.unlock et j'obtines le message d'erreur suivant:

ADODB.Recordset erreur '800a0e78'

L'opération demandée par l'application n'est pas autorisée si l'objet est fermé.

Mon code est le suivant:

Application.Lock
'Inserts the data in the MemoCustomer table
SQLQueryU="INSERT INTO MemoCustomer (MemoCustomer_Email,MemoCustomer_Name,MemoCustomer_DateSub,MemoCustomer_EndSub) VALUES ('"&email&"','"&pseudo&"',getdate(),dateadd(mi,30,getdate()))"
set ResultU = dbconnect.Execute( SQLQueryU)


'selects max MemoCustomer ID
sqlmax = "SELECT max(MemoCustomer_ID) FROM MemoCustomer"
Set Resultmax = Server.CreateObject("ADODB.Recordset")
Resultmax.Open sqlmax,dbconnect, 3, 3
Session("MemoCustomer_ID") = Resultmax(0)

DATAS = Session("MemoCustomer_ID")
'Response.Write CusID
Application.UnLock
...

'Closes the recordset objects
If isobject(ResultT) Then
ResultT.Close
Set ResultT = Nothing
End If
If isobject(ResultU) Then
ResultU.Close
Set ResultU = Nothing
End If
If isobject(ResultC) Then
ResultC.Close
Set ResultC = Nothing
End If
If isobject(Resultmax) Then
Resultmax.Close
Set Resultmax = Nothing
End If

En fait j'essai de recuperer l'identifiant unique de mon client.Mi apparemment il y a un conflict entre l'objet application et le fait que je désire en principe après son utilistion fermer l'enregistrement.

Quelqu'un aurait t'il une solution à me proposer.

merci d'avance!

Ben je suis pas sur, mais il me semble que Application.Lock et Unlock ne marche que sur des variables d'application. Pour vérouiller ton accès, il faut donc tu utilises une variable d'application comme un sémaphore:
Par exemple
fin=false
while not fin=true
Application.Lock()
if (Application("bdd_libre")=true) then
Application("bdd_libre")=false
end if
Application.UnLock()
wend
........
.....traitement.......
..........

Application.Lock()
Application("bdd_libre")=true
Application.UnLock()

Je pense pas que ce soit la cause de ton erreur mais en tout cas, ça pourra te servir
-------------------------------
Réponse au message :
-------------------------------

salut à tous!

j'utilise la methode application.lock et application.unlock et j'obtines le message d'erreur suivant:

ADODB.Recordset erreur '800a0e78'

L'opération demandée par l'application n'est pas autorisée si l'objet est fermé.

Mon code est le suivant:

Application.Lock
'Inserts the data in the MemoCustomer table
SQLQueryU="INSERT INTO MemoCustomer (MemoCustomer_Email,MemoCustomer_Name,MemoCustomer_DateSub,MemoCustomer_EndSub) VALUES ('"&email&"','"&pseudo&"',getdate(),dateadd(mi,30,getdate()))"
set ResultU = dbconnect.Execute( SQLQueryU)


'selects max MemoCustomer ID
sqlmax = "SELECT max(MemoCustomer_ID) FROM MemoCustomer"
Set Resultmax = Server.CreateObject("ADODB.Recordset")
Resultmax.Open sqlmax,dbconnect, 3, 3
Session("MemoCustomer_ID") = Resultmax(0)

DATAS = Session("MemoCustomer_ID")
'Response.Write CusID
Application.UnLock
...

'Closes the recordset objects
If isobject(ResultT) Then
ResultT.Close
Set ResultT = Nothing
End If
If isobject(ResultU) Then
ResultU.Close
Set ResultU = Nothing
End If
If isobject(ResultC) Then
ResultC.Close
Set ResultC = Nothing
End If
If isobject(Resultmax) Then
Resultmax.Close
Set Resultmax = Nothing
End If

En fait j'essai de recuperer l'identifiant unique de mon client.Mi apparemment il y a un conflict entre l'objet application et le fait que je désire en principe après son utilistion fermer l'enregistrement.

Quelqu'un aurait t'il une solution à me proposer.

merci d'avance!