[asp+Access] Retourner une information lors d'un insert ?

Retourner une information lors d'un insert ? [asp+Access] - ASP - Programmation

Marsh Posté le 20-05-2003 à 15:55:56    

Bonjour
 
Voila ma question (je sais po si c possible).
 
Je suis sous iis 5/dream mx/access 2000
 
J'ai une table avec un champ ID en auto-increment.
 
Lorsque j'inserts un enregistrement, je ne remplie bien sur pas la valeur ID (qui se fait automatiquement) mais les autres champs.
 
Mais ce que j'aimerai savoir c'est s'il est possible de retourner cette ID lorsque l'insertion s'est bien faite , sans avoir a faire une nouvelle requete (cherchant l'ID avec les parametres tout juste insérés).
 
Je sais po si j'ai ete clair  :??:  
 
thx


Message édité par hfrfc le 20-05-2003 à 17:01:09

---------------
D3/Hots/Hs Doc#2847
Reply

Marsh Posté le 20-05-2003 à 15:55:56   

Reply

Marsh Posté le 20-05-2003 à 17:01:39    

Po de reponse  ?
 
 [:zoutte]


---------------
D3/Hots/Hs Doc#2847
Reply

Marsh Posté le 22-05-2003 à 09:38:30    

Set rs1=CreateObject("ADODB.Recordset" )
 
sql1="INSERT INTO ..."
 
conn.execute(sql1)
 
w="SELECT @@IDENTITY AS id;"
set rs1=conn.execute(w)
 
 
Et un rs1 ("id" ) te donnera ce que tu cherches.
 
Ce n'est d'ailleurs pas la seule méthode pour avoir la chose, mais elle fonctionne avec Access 2000.


Message édité par deliriumtremens le 22-05-2003 à 09:53:48
Reply

Marsh Posté le 24-05-2003 à 22:11:19    

Pour ceux que ca interesse voila le code pour Dreamweaver MX + Access 2000 mini (ne marche pas avec access 97).
Faite le comportement server "inserer un enregistrement" et modifiez cette partie (commence en dessous du 1er commentaire):

Code :
  1. If (Not MM_abortEdit) Then
  2.     ' execute the insert
  3. Set MM_editCmd = Server.CreateObject("ADODB.Command" )
  4.     MM_editCmd.ActiveConnection = MM_editConnection
  5.  MM_editCmd.CommandText = MM_editQuery
  6.     MM_editCmd.Execute
  7.  MM_editCmd.CommandText = "SELECT @@IDENTITY AS Ident"
  8.     Set rsProdID = MM_editCmd.Execute
  9.     if (NOT rsProdID.EOF) then
  10.     strProdID = rsProdID.Fields.Item("Ident" ).Value
  11.          ' on stocke la valeur
  12.     end if
  13.     MM_editCmd.ActiveConnection.Close
  14.  If (MM_editRedirectUrl <> "" ) Then
  15.   Response.Redirect(MM_editRedirectUrl)
  16.  End If
  17.   End If
  18. End If
  19. %>
  20. <%
  21. If(CStr(Request("MM_insert" ))<>"" ) Then
  22. Response.Redirect ("details.asp?AutoNumber=" & strProdID)
  23. end if
  24. %>


Message édité par hfrfc le 24-05-2003 à 22:12:58

---------------
D3/Hots/Hs Doc#2847
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed