ASP

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [asp+Access] Retourner une information lors d'un insert ?

hfrfc

Bob c'est plus simple à dire..

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

Publicité

hfrfc

Bob c'est plus simple à dire..

Po de reponse ?

[:zoutte]

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

deliriumtremens

sic transit intestinal...

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

hfrfc

Bob c'est plus simple à dire..

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 :

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command" )
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.CommandText = "SELECT @@IDENTITY AS Ident"
Set rsProdID = MM_editCmd.Execute
if (NOT rsProdID.EOF) then
strProdID = rsProdID.Fields.Item("Ident" ).Value
' on stocke la valeur
end if
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "" ) Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
If(CStr(Request("MM_insert" ))<>"" ) Then
Response.Redirect ("details.asp?AutoNumber=" & strProdID)
end if
%>

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

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

FORUM HardWare.fr

Programmation

ASP

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

Sujets relatifs
[RESOLU] [ACCESS] Créer des réferences simplifié a partir d'une table	prob entre VB 6 et Access 2000...! [Résolu]
Lecture d'une base access avec Php	formulaires access
Connexion à une base access située sur un autre serveur	[ACCESS ] creer une alerte
Access XP et VB6	[SQL]sous-requete a plusieurs parametres sous access
Existe-t-il une fonction équivalente au nvl de Oracle sous ACCESS?	bouton et icones sous access
Plus de sujets relatifs à : [asp+Access] Retourner une information lors d'un insert ?

Page générée en 0.055 secondes