Bonjour à tous, je souhaite tester le contenu de mon recordset en l'affichant dans un MsgBox() :
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".
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()
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.
Partager