convertir ado.recordset.fields en system.string
Bonjour à tous, je souhaite tester le contenu de mon recordset en l'affichant dans un MsgBox() :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim strconnect As String
Dim dbconnect As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strsql As String
strconnect = "Driver={SQL Server Native Client 10.0};Server=SUPPORT-PC\SAGE100; Database=GMAO;Trusted_Connection=yes;"
dbconnect.Open(strconnect)
strsql = "SELECT AR_Design, AR_Ref FROM dbo.F_ARTICLE"
rst.Open(strsql, dbconnect)
rst.MoveFirst()
While Not (rst.EOF)
MsgBox(rst.Fields(0).ToString())
rst.MoveNext()
End While
rst.Close()
dbconnect.Close() |
Quand je fais un MsgBox(rst(0)), je reçois une erreur me disan qu'il est impossible de convertir un champ de type "prompt" en type "string".
Et quand je fais un MsgBox(rst.Fields(0).ToString()), la msgbox m'affiche "ADODB.InternalField".
Comment puis-je convertir en string les fields de mon recordset ?
Merci pour vos réponses.
