Discussion :

[bobinette33]

Bonjour forum,

Voici mon code

Code :

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

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 :

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

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

[Yolak]

Bonjour,

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

Code :

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

strSQL="SELECT * FROM employe"

C'est quoi l'intitulé du bug?

[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

[Yolak]

Essaye d'ajouter O.NoUtilisateur dans ton SELECT

Et dans :

Code :

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

"WHERE O.NoProjet=" & intNoProjet

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

[bobinette33]

Nouveau code

Code :

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

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

[mercatog]

Code :

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

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

where quoi?

[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 :

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

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

Copie Colle!

[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