[VBA] Probleme de requete SQL
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
2 réponses
-
ModérateurSalut,
il est probable que cela ne fonctionne pas car une requête select renvoie un résultat, or ici tu n'as pas précisé où tu voulais tes résultats (recordset, table...) et RUNSQL ne s'applique qu'aux requêtes actions (qui modifient les données).
Essaie ta requête avec un DELETE pour voir...
-
up !
