Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ze Titi
Hello Paul !
Trouvé sur le net, à tester:
Sans paramètres:
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command Cmd.ActiveConnection = CurrentProject.Connection Cmd.CommandType = adCmdStoredProc Cmd.CommandText = "Nom de ta Procedure" Cmd.Execute
Set Cmd = Nothing
Avec des paramètres :
Dim Cmd As ADODB.Command Dim Prm1 As ADODB.Parameter, Prm2 As ADODB.Parameter
Set Cmd = New ADODB.Command Cmd.ActiveConnection = CurrentProject.Connection Cmd.CommandType = adCmdStoredProc Cmd.CommandText = "Nom de ta Procedure"
Set Prm1 = Cmd.CreateParameter("@NomDuParametre1danstaSP", adInteger, adParamInput) Set Prm2 = Cmd.CreateParameter("@NomDuParametre2danstaSP", adInteger, adParamInput)
Set Cmd = Nothing Set Prm1 = Nothing Set Prm2 = Nothing
En ce jour mémorable du jeudi 26/04/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour,
Peut on appeler une procedure stockee SQL via l'ODBC à partir d'ACCESS.
La fonction me permettrait de lancer une mise à jour dans un programme d'automatisation de machine, qui fonctionnerait en parallele .
D'avance merci de la réponse.
Cordialement.
Paul S
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Hello Paul !
Trouvé sur le net, à tester:
Sans paramètres:
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = CurrentProject.Connection
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "Nom de ta Procedure"
Cmd.Execute
Set Cmd = Nothing
Avec des paramètres :
Dim Cmd As ADODB.Command
Dim Prm1 As ADODB.Parameter, Prm2 As ADODB.Parameter
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = CurrentProject.Connection
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "Nom de ta Procedure"
Set Prm1 = Cmd.CreateParameter("@NomDuParametre1danstaSP", adInteger,
adParamInput)
Set Prm2 = Cmd.CreateParameter("@NomDuParametre2danstaSP", adInteger,
adParamInput)
Set Cmd = New ADODB.Command Cmd.ActiveConnection = CurrentProject.Connection Cmd.CommandType = adCmdStoredProc Cmd.CommandText = "Nom de ta Procedure" Cmd.Execute
Set Cmd = Nothing
Avec des paramètres :
Dim Cmd As ADODB.Command Dim Prm1 As ADODB.Parameter, Prm2 As ADODB.Parameter
Set Cmd = New ADODB.Command Cmd.ActiveConnection = CurrentProject.Connection Cmd.CommandType = adCmdStoredProc Cmd.CommandText = "Nom de ta Procedure"
Set Prm1 = Cmd.CreateParameter("@NomDuParametre1danstaSP", adInteger, adParamInput) Set Prm2 = Cmd.CreateParameter("@NomDuParametre2danstaSP", adInteger, adParamInput)