bonjour, j'ai une table avec un champs IDsoc (numerique non automatique), je recupere bien la valeur du dernier IDsoc pour l'incrémenter et apres je veux inserer ce nouvel IDsoc
J'y arrive mais pas placé en tant que dernier enregistrement mais en premier (probleme avec le MoveLast?)
ex: IDsoc =150 pour l' enregistrement n°150
apres insertion j'ai IDsoc =151, enregistrement n°1
voici mon code:(merci d'avance)
Dim max2
Dim max
Set ADORecordset = Server.CreateObject("ADODB.Recordset")
ADORecordset.Open "SELECT MAX(IDsoc) as max FROM Adherents", Conn, 3 , 3, adCmdText
max2 = ADORecordset.Fields("max")
max2 = max2 + 1
Response.Write max2
ADORecordset.Close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ADORecordset.Open "Adherents", Conn, 3 , 3, adCmdTable
ADORecordset.MoveLast
ADORecordset.AddNew
ADORecordset.Fields("IDsoc")= max2
ADORecordset.UpDate
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ADORecordset.Close
Set ADORecordset = Nothing