Probleme avec GetString() pour un RecordSet
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:
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 ... ;)
