[kslawy]

حسناً بعد البحث عن رسالة الخطأ في قوقل وجدت الحل بموقع مايكروسوفت هــنـــــــا

سبب الرسالة لأن الحقل فارغ لا توجد به بيانات لذلك يجب التأكد أولاً من وجود بيانات بالحقل كالتالي :

كود :

If Reader.HasRows = True Then
            While Reader.Read()
                If Not Reader.IsDBNull(Reader.GetOrdinal("أكتب هنا اسم الحقل بقاعدة البيانات")) Then
                    
                    TextFile.WriteLine(Reader.GetString(Reader.GetOrdinal("sname")))

                End If
            End While
            TextFile.Close()
            Con.Close()
        End If

الجديد هنا الدالة Reader.GetOrdinal والتي نمرر لها اسم الحقل في قاعدة البيانات فتعود لنا برقمه أي أننا لسنا مضطرين لكتابة رقم الحقل ستتكفل هذه الدالة بذلك

تم تجربة المثال ويعمل بدون ظهور رسالة الخطأ