Bonjour forum,
Voici mon code
J'ai modifier les info perso.
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
Le bug survient à cette ligne
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part rs.Open strSQL, Cnn, adOpenDynamic, adLockReadOnly
Merci
Partager