Ouvrir une Connexion SQL depuis VBA Excel

Bonjour à tous,

J'essaie de me connecter à une base de donnée en SQL

et lorsque je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test()     Dim cnx As New ADODB.Connection Dim req As New ADODB.Recordset cnx.Provider = "SQLOLEDB" cnx.ConnectionString = bd cnx.Open   End Sub

---

Il m'affiche un message d'erreur pour cnx ... et req ...:

"erreur de compilation"

"Type défini par l'utilisateur non défini"

Quelqu'un peut me dire ce que je peux faire pour débloquer ça svp ?

As-tu activé la référence suivante : Microsoft AtiveX Data Objects 2.x Library ?

C'était bien ça.
Merci beaucoup.

Autre question à quoi correspond le message d'erreur suivant svp:

"Spécification permission non valide."

Il s'affiche à la ligne de code:

Code:

---

cnx.Open

---

.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10

With CreateObject("Adodb.Connection") .Open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server With .Execute(Sql) If Not .EOF Then 'traitement End If .Close End With .Close End With

---

Citation:

---

Spécification permission non valide

---

pare ce que tu ne fournis pas le user pasword de ta connexion comme dans mon exemple!

Ok,

je vais voir ça Merci beaucoup.

ça fonctionne merci.

Salut à tous,

Toujours dans le même registre,

lorsque je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim cnx As New ADODB.Connection Dim req As New ADODB.Recordset Dim sql As String cnx.Provider = "SQLOLEDB" cnx.ConnectionString = base cnx.Open   req.Open "Select alpha, beta, tango, coderun, coderi, from view_joggo ", cnx

---

lorsque j'arrive à la dernière ligne

Code:

---

req.Open "Select alpha, beta, tango, coderun, coderi, from view_joggo ", cnx

---

J'ai le message d'erreur suivant : "Syntaxe incorrecte vers le mot clé 'from'."

Pourtant avec la même syntaxe sur une autre table et d'autres critères, cela fonctionne très bien.

Quelqu'un a-t-il une réponse à ça svp ?

Bonsoir,
coderi, from view_joggo

Salut dysorthographie,

Je ne comprend pas ta réponse.

La virgule

Ok Merci

Salut à tous,

Quelqu'un peut m'expliquer ce que veut dire ce bout de requête svp,

Mon prédécesseur l'a écrit ainsi:

Code:

---

req.Open "Select alpha, beta, tango, coderun, coderi, from view_joggo WHERE " & where_alpha & "" , cnx

---

C'est surtout cette partie que je ne comprend pas

Code:

---

WHERE " & where_alpha & "

---

De plus j'ai message d'erreur comme le précédent qui me dit "erreur de syntaxe vers 'WHERE'.

Merci à vous.

Bonjour,

Code:

---

1 2 3

where_alpha = "alpha ='toto'" where_alpha est tue variable! req.Open "Select alpha, beta, tango, coderun, coderi from view_joggo WHERE " & where_alpha & "" , cnx

---

Si j'enlève la virgule avant le from effectivement cela fonctionne pour ce qui est de la première partie,

Code:

---

req.Open "Select alpha, beta, tango, coderun, coderi from view_joggo " , cnx

---

Mais si je rajoute cette partie :

Code:

---

WHERE " & where_alpha & ", cnx

---

Alors j'ai toujours le message d'erreur: "erreur de syntaxe vers 'WHERE'

Savez-vous pourquoi svp ?

Qu'est qu'il y a dans la variable where_alpha?

C'est étrange elle est déclarée dans un autre module en :

Code:

---

Public where_alpha As string

---

Fais un click droit dessus ajouter un espion.

Positionnes toi sur la ligne req.Open "Select et appuis sur la touche [F9] tu pourras voir ainsi au moment de l'exécution du programme sa valeur!

Voilà ce que j'obtient:

Expression: where_centre, Valeur :"" , Type: String, Contexte: Module1.connexion

Qu'en pensez-vous svp ?

Puisque la valeur est "" ça revient revient a

Select alpha, beta, tango, coderun, coderi from view_joggo WHERE

Alors que ça un truc du genre
Select alpha, beta, tango, coderun, coderi from view_joggo WHERE alpha ='toto'

Il faut trouver ou te devrais entre la valeur!

Salut,

J'ai voulu utiliser la fonction suivante SUBSTR(),

Voila le message d'erreur que j'ai reçu: 'SUBSTR' n'est pas une option de fonction intégrée reconnue.

Savez vous ce que cela veut dire svp ?

SUBSTR est une fonction PHP pas VBA il me semble :/
En VBA tu as Left, Right, Mid...

J'ai trouvé c'est SUBSTRING en VBA et non SUBSTR.

Merci a toi Rapidkiller.