Bonjour,

Je suis acutellement en train d'essayer de recuperer la valeur inscrite dans un RecordSet avec la methode GetString.

Le probleme est que lorsque j'execute mon code le code se "bloque" sur la ligne contenant la methode, et je n'ai aucun message d'erreur, il est donc impossible pour moi de trouver une solution ...

J'ai cherche sur le forum et je n'ai rien trouve a propos de cette methode, donc je suis un peu embeter.

Voici mon bout de code contenant cette methode :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim sSQL1 as String
 
sSQL1 = "SELECT ITRV FROM pn_revision_crdate " & _
"WHERE (((ITNBR)=" & "'" & Trim(XL_sheet.Range("A" & l).Value) & "'" & ") AND ((CO)=DMax(" & Chr(34) & "CO" & Chr(34) & ", " & Chr(34) & "pn_revision_crdate" & Chr(34) & ", " & Chr(34) & "[ITNBR] =" & "'" & Trim(XL_sheet.Range("A" & l).Value) & "'" & Chr(34) & ")));"
 
Set RrdSt = New ADODB.Recordset
RrdSt.Open sSQL1, CurrentProject.connection, adOpenKeyset
 
Set test = RrdSt.GetString(adClipString)                           
 
RrdSt.Close
Set RrdSt = Nothing
Si vous avez une idee ...