Discussion :

[lediz]

bonjour,

j'aimerais savoir comment faire pour appeler une procédure se trouvant dans le code VB de mon MDB-ACCESS en ASP
La procédure "EXE_REFRESH" se trouve dans la partie "MODULES / code" de mon MDB-ACCESS (en Visual Basic)
Pouvez-vous m'aider ?

ma procédure VB

Code :

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

1
2
3
4
5
6
Public Function EXE_REFRESH()
    DoCmd.SetWarnings False
    My_SQL = "insert into TBL_EXE_REFRESH(USER) values('toto');"
    DoCmd.RunSQL My_SQL
    DoCmd.SetWarnings True
End Function

Voici le code de mes 2 essais "infructueux"

Mon code asp n°1 (AVEC cmd.CommandType)

Code :

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

1
2
3
4
5
6
7
8
9
10
Set conn = Server.CreateObject("ADODB.Connection")
my_db="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\mes_mdb\test.mdb"
conn.Open my_db
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "EXE_REFRESH"
cmd.CommandType = adCmdStoredProc
cmd.Execute
Set Cmd = Nothing
set Conn = Nothing

Mon Erreur n°2 :

ADODB.Command erreur '800a0bb9'
Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.
/progamme/test.asp, ligne 7

Mon code asp n°2 (SANS cmd.CommandType)

Code :

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

1
2
3
4
5
6
7
8
9
Set conn = Server.CreateObject("ADODB.Connection")
my_db="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\mes_mdb\test.mdb"
conn.Open my_db
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "EXE_REFRESH"
cmd.Execute
Set Cmd = Nothing
set Conn = Nothing

Mon Erreur n°2 :

Microsoft OLE DB Provider for ODBC Drivers erreur '80040e14'
[Microsoft][Pilote ODBC Microsoft Access] Instruction SQL non valide; 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' attendus.
/progamme/test.asp, ligne 7

[oxedet]

Bonjour,
Je ne l'ai jamais testé, mais je ne suis pas du tout convaincu qu'un module "VB" Access puisse être considéré comme une "procédure stockée" en ADO (cf deuxième message). Je me pose donc la question : pourquoi ne pas déclencher la requète intiale voire transposer ce module directement en vbscript/ASP ?