Discussion :

[pigeon11]

Bonjour,

j'ai :

- une page ASP

- bd sql server 2000

dans une procédure stockée j'insère dans ma table un nouvel élément qui a

un champs id(num auto)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
CREATE PROCEDURE proc1
@nom varchar(20),
@id int output
AS
INSERT INTO perso VALUES (@nom)
 
SET
    @id= SCOPE_IDENTITY()
GO

le problème c'est que je n'arrive pas à récupérer le champs id dans ma page ASP.

j'utilise comme provider sqloledb.

j'ai vu des exemple :

Parameters.Append.CreateParameter(....)

mais ça n'a pas marché

Merci pour vos aides

[TekP@f]

Salut,

Quand tu dis "ça n'a pas marché", tu peux être plus précis ? Voilà une syntaxe qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Set mycommand= CreateObject("ADODB.Command")
With objCmd
.ActiveConnection = "ma_connexion"
.CommandType = adCmdStoredProc
.CommandText = "ma_procedure"
.Parameters.Append objCmd.CreateParameter("@var", adInteger, adParamInput, , value)
End With
Set myrecordset = CreateObject("ADODB.Recordset")

[pigeon11]

Salut,

Quand tu dis "ça n'a pas marché", tu peux être plus précis ? Voilà une syntaxe qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Set mycommand= CreateObject("ADODB.Command")
With objCmd
.ActiveConnection = "ma_connexion"
.CommandType = adCmdStoredProc
.CommandText = "ma_procedure"
.Parameters.Append objCmd.CreateParameter("@var", adInteger, adParamInput, , value)
End With
Set myrecordset = CreateObject("ADODB.Recordset")

j'utilse SQLOLEDB comme provider. c'est quoi l'équivalent de Parameters.Append objCmd.CreateParameter("@var", adInteger, adParamInput, , value) dans ce cas

Merci

[TekP@f]

Heu, ben c'est la même chose
SQLOLEDB est ton provider, il suffit de bien paramétrer ta connexion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.ActiveConnection = "Provider=sqloledb;..."

Sinon, y'avait une coquille dans mon code (pble de copier/coller) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With mycommand
.ActiveConnection = "Provider=sqloledb;..."
.CommandType = adCmdStoredProc
.CommandText = "ma_procedure"
.Parameters.Append mycommand.CreateParameter("@var", adInteger, adParamInput, , value)
End With

[pigeon11]

Bonjour,

j'ai essayé de récupérer la valeur rendue par la procédure stockée mais ça ne marche plus.

1- la procédure stockée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
CREATE PROCEDURE maproc
 
@param integer  output
 
AS
INSERT INTO T1 VALUES ('aaa')
SET  @param =SCOPE_IDENTITY()
GO

2-programme VB :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Public Function fct() As Integer
 
Dim objCommand  As ADODB.Command
Set objCommand = New ADODB.Command
Dim parametre As ADODB.Parameter
 
 
 
Set parametre = objCommand.CreateParameter("x",adInteger,adParamOutput)
 
    With objCommand
          .ActiveConnection = ADOConn
          .CommandType = adCmdStoredProc
          .CommandText = "maproc"
          .Parameters.Append (parametre)
          .Execute
    End With
 
    fct = objCommand.Parameters.Item("x").Value
 
 
    Set objCommand.ActiveConnection = Nothing
End Function

3-Page ASP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set obj = CreateObject("xxx.Classe")
Dim param2
param2= obj.fct("maproc")

quand je fait

alert("<%=param2%>") ça ne me donne rien. j'ai l'erreur : Un objet est requis

c'est une erreur au niveau du programme vb.
l'élément ne s'insère plus.

Merci pour vos aides

[roro06]

Bonjour

c'est de l'ASP3, du VB6 ou du VB.net ?

[pigeon11]

Bonjour

c'est de l'ASP3, du VB6 ou du VB.net ?

C'est de l'ASP3 + VB6

[TekP@f]

Dans ton code VB, tu associes une variable nommée "x" alors que dans la proc. stockée, ta variable se nomme "@param".
Mets le même nom pour qu'il puisse faire l'association.

Sinon, je ne sais pas si cette syntaxe fonctionne. Moi, j'avais l'habitude de créer mon paramètre en associant directement une variable VB.

[pigeon11]

C'est résolu

Merci beaucoup