Execution Requete VBA

cs_DeWaRs Messages postés 77 Date d'inscription vendredi 31 décembre 2004 Statut Membre Dernière intervention 6 septembre 2010 - 7 nov. 2008 à 10:54
cs_DeWaRs Messages postés 77 Date d'inscription vendredi 31 décembre 2004 Statut Membre Dernière intervention 6 septembre 2010 - 7 nov. 2008 à 11:20
Salut a tous,

J'essaie d'executer une requete sur un serveur sql express 2005, mais j'ai un message d'erreur sql : "424 : object required"

  Dim requete As String
    requete = "select * from tblRoom"
     
    DoCmd.OpenQuery requete
    MsgBox requete

Je ne comprend pas vraiment le probleme.

Si quelqu'un peut m'aider.

(Je débute en VBA, et ne compte pas vraiment m'étendre dessus, c'est uniquement pour un projet pour le boulot)

Codialement.

DeWaRs

1 réponse

cs_DeWaRs Messages postés 77 Date d'inscription vendredi 31 décembre 2004 Statut Membre Dernière intervention 6 septembre 2010 2
7 nov. 2008 à 11:20
Mon code entier

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=mon_ip\SQLEXPRESS; Database=IT_Demo; Uid=user;Pwd=pass;"
    End With
   
    cn.Open
    
    MsgBox cn
    

    SQL = "Delete * From TABLE"
    
    Docmd.RunSQL SQL

    
    
   
    Exit Sub

ErrOuv:
    MsgBox Err.Number & " : " & Err.Description
    End
End Sub
0
Rejoignez-nous