Bonjour à tous, je souhaite tester le contenu de mon recordset en l'affichant dans un MsgBox() :

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
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.