Problème Properties lors connexion MySQL 3.51 Driver

Version imprimable

Bonjour forum,

Voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub GetInfoProjet(intNoProjet As String)
    Dim Cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
 
    Set Cnn = New ADODB.Connection
    Cnn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=10.10...;Database=Data;User=Gille; Password=se091;Option=3;"
    Cnn.Open
 
    Set rs = New ADODB.Recordset
    strSQL = "SELECT O.NoProjet, E.NomEmploye, E.Departement, O.HrsTotal, E.GrandSecteur, O.CodeActivite, O.DateHrsDebut, O.DateHrsFin " & _
             "FROM ultrahrsgest.employe E INNER JOIN ultrahrsgest.operation O ON E.NoUtilisateur = O.NoUtilisateur " & _
             "WHERE O.NoProjet=" & intNoProjet
    rs.Open strSQL, Cnn, adOpenDynamic, adLockReadOnly
 
    Sheets("Feuil1").Range("A10").CopyFromRecordset rs
End Sub

J'ai modifier les info perso.

Le bug survient à cette ligne

Code:

rs.Open strSQL, Cnn, adOpenDynamic, adLockReadOnly

Je désire garder ces mêmes propriétés pour être certain de ne pas modifier ma base de donnée, avez une solution

Merci

16/07/2010, 10h47
Yolak

Bonjour,

Sans doute une erreur dans la chaîne SQL.
Essaye de faire une requête simple pour localiser le problème:

Code:

strSQL="SELECT * FROM employe"

C'est quoi l'intitulé du bug?
16/07/2010, 14h14
bobinette33

ça fonctionne, alors mon problème est dans mon code SQL, est-ce que tu sais où?, je veux juste spécifier que j'ai un critère que je dois respecter qui est un NoProjet de type string.

Merci
16/07/2010, 14h48
Yolak

Essaye d'ajouter O.NoUtilisateur dans ton SELECT

Et dans :

Code:

"WHERE O.NoProjet=" & intNoProjet

si ta variable est nulle, il faut lui affecter la chaîne "''" (double quote, quote, quote, double quote)

Nouveau code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub GetInfoProjet(intNoProjet As String)
    Dim Cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
 
    Set Cnn = New ADODB.Connection
    Cnn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=10.10...;Database=Data;User=Gille; Password=se091;Option=3;"
    Cnn.Open
 
    Set rs = New ADODB.Recordset
    strSQL = "SELECT O.NoUtilisateur, O.NoProjet, E.NomEmploye, E.Departement, O.HrsTotal, E.GrandSecteur, O.CodeActivite, O.DateHrsDebut, O.DateHrsFin " & _
             "FROM ultrahrsgest.employe E INNER JOIN ultrahrsgest.operation O ON E.NoUtilisateur = O.NoUtilisateur " & _
             "WHERE O.NoUtilisateur, O.NoProjet=" & intNoProjet
    rs.Open strSQL, Cnn, adOpenDynamic, adLockReadOnly
 
    Sheets("Feuil1").Range("A10").CopyFromRecordset rs
End Sub

Mais toujours la même erreur sur la même ligne

16/07/2010, 15h39
mercatog

Code:

"WHERE O.NoUtilisateur, O.NoProjet=" & intNoProjet

where quoi?

Je ne comprend pas trop ta question mercatog, ce code SQL, je l'ai pris d'un code que ma sorti MSQuery, voilà le code SQL original
Code:

1 2 3 4 5 SELECT operation_0.NoProjet, operation_0.DateHrsDebut, employe_0.NomEmploye, operation_0.Departement, operation_0.HrsTotal, operation_0.Secteur, operation_0.CodeActivite, operation_0.DateHrsDebut, operation_0.DateHrsFin, employe_0.Salaire FROM ultrahrsgest.employe employe_0, ultrahrsgest.operation operation_0 WHERE employe_0.NoUtilisateur = operation_0.NoUtilisateur AND ((operation_0.NoProjet=?))
Donc et je ne suis pas un grand expert, j'avais demander de l'aide pour transféré ce code en vba.

16/07/2010, 16h04
mercatog

Code:

"Where Champ1=valeur1 and champ2=valeur2"

si valeur1 et valeur2 sont des variables (numériques par exemple)

Code:

"Where Champ1=" & valeur1 &"and champ2=" & valeur2

Je ne garantie rien quand même
(pour les valeurs textes peut être il faut ajouter des apostrophes et des dates des dièses encadrant les variables)
16/07/2010, 16h07
Yolak

Citation:

Envoyé par Yolak

Essaye d'ajouter O.NoUtilisateur dans ton SELECT

Dans la clause SELECT pas dans la clause WHERE ^^ Mais de toute façon, je ne pense pas que ce soit ça...

Par contre:

Ta variable doit être entourée des caractères ' (apostrophes)

Donc:

Code:

"WHERE O.NoProjet='" & intNoProjet & "'"

Copie Colle!
16/07/2010, 16h59
bobinette33

ok avec les modification de Yolak, et j'ai supprimé les propriétés "adOpenDynamic, adLockReadOnly" et la requête fonction.

Mais je désire garder ces propriétés, y a-t-il d'autres propriété qui on les mêmes fonctions.

Merci