Problème VBA

Ici l'on parle de tout et de rien...
Scanner Windows pour détecter les erreurs de registre

Ce que nous vous conseillons :

1. Lisez les réponses ci-dessous où vous trouverez des conseils et de l'aide de la part des autres utilisateurs.

2. Avant de faire des modifications sur votre système ou d'installer des logiciels, nous vous recommandons
    fortement de cliquer ici pour scanner Windows afin de détecter les erreurs de registre.



Messagepar LeLapinFou » 16 Mar 2007, 22:13

Bonjour,

j'ai un petit problème de syntax sur mon VBA, et comme cela fait enormement longtemps que je n'en ai plus fait, je planche un peu

Private Sub Btn06_5_Change()
Dim SQL As String
Dim rec_db As ADODB.Recordset
Set rec_db = New ADODB.Recordset

If ConnexMySQL.State = 0 Then
etablir_connec
End If
If ConnexMySQL.State = 1 Then
SQL = "SELECT count(*) FROM rabbit_user"
Call rec_db.Open(SQL, ConnexMySQL)
rec_db.Close
End If
End Sub

Le problème de syntax vient de la ligne rouge, pourtant, d'après mes souvenirs, c'était bien comme ça.... a l'époque du VBA (je ne sais plus quelle vielle version...) Image
Le cnx a la base SQL, pas de pb, mais le select...
Ps : je suis en excel 2007 et en VB 6.3

EDIT : En Bleu l'instruction qui manquait si jamais cela interesse quelqu'un ;)
Dernière édition par LeLapinFou le 17 Mar 2007, 19:50, édité 1 fois au total.
Avatar de l’utilisateur
LeLapinFou
Modérateur
 
Messages: 9511
Inscrit le: 09 Déc 2002, 10:25
Localisation: 0001 Processeur Ville

Retour vers Bavardages

Qui est en ligne ?

Utilisateurs parcourant actuellement ce forum : Aucun utilisateur inscrit et 3 invités

  •  Liens commerciaux