[VBA] Probleme de requete SQL
DeWaRs
Messages postés
74
Statut
Membre
-
blux Messages postés 2049 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 2049 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai un probleme avec VBA et un serveur MS SQL 2005. Je n'arrive pas a executé de requete SQL alors que la connection fonctionne.
Voici mon code :
Private Sub CommandButton1_Click()
Dim SQL As String
'Connexion à la base de données
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo ErrOuv
With cn
.Provider = "SQL Native Client"
.ConnectionString = "Driver={SQL Native Client};Server=monip\SQLEXPRESS; Database=IT_Demo; Uid=user;Pwd=pass;"
End With
cn.Open
MsgBox cn 'j'affiche le résultat de la connection
Docmd.RunSQL "select * From dbo.table1"
Exit Sub
ErrOuv:
MsgBox Err.Number & " : " & Err.Description
End
Il me sort une erreur 424 : object requis. Je ne comprend pas.
Si quelqu'un peu m'aider.
Cordialement.
DeWaRs
J'ai un probleme avec VBA et un serveur MS SQL 2005. Je n'arrive pas a executé de requete SQL alors que la connection fonctionne.
Voici mon code :
Private Sub CommandButton1_Click()
Dim SQL As String
'Connexion à la base de données
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo ErrOuv
With cn
.Provider = "SQL Native Client"
.ConnectionString = "Driver={SQL Native Client};Server=monip\SQLEXPRESS; Database=IT_Demo; Uid=user;Pwd=pass;"
End With
cn.Open
MsgBox cn 'j'affiche le résultat de la connection
Docmd.RunSQL "select * From dbo.table1"
Exit Sub
ErrOuv:
MsgBox Err.Number & " : " & Err.Description
End
Il me sort une erreur 424 : object requis. Je ne comprend pas.
Si quelqu'un peu m'aider.
Cordialement.
DeWaRs
Configuration: Windows XP Firefox 3.0.3
