Discussion :

[manufer]

Bonjour à tous,

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

et lorsque je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[antonysansh]

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

[manufer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

cnx.Open

.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Spécification permission non valide

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

[manufer]

Ok,

je vais voir ça Merci beaucoup.

ça fonctionne merci.

[manufer]

Salut à tous,

Toujours dans le même registre,

lorsque je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Invité]

Bonsoir,
coderi, from view_joggo

[manufer]

Salut dysorthographie,

Je ne comprend pas ta réponse.

[Invité]

La virgule

[manufer]

Ok Merci

[manufer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[Invité]

Bonjour,

Code exemple sens la virgule avant le from :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manufer]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mais si je rajoute cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 WHERE " & where_alpha &  ", cnx

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

Savez-vous pourquoi svp ?

[Invité]

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

[manufer]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public where_alpha As string

[Invité]

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!

[manufer]

Voilà ce que j'obtient:

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

Qu'en pensez-vous svp ?

[Invité]

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!

[manufer]

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 ?

[Rapidkiller]

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