Bonjour forum,
Voici mon 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
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
Partager