خطاء يظهر لي عند قراءة البيانات من حقل قيمته 0

ماهو الكود الذى تستخدمه لقراءة البيانات؟

Function query1(ByVal field1 As String) As String

Try

'con.Open()

Dim cmd As New OleDb.OleDbCommand

cmd.Connection = con

cmd.CommandText = field1

cmd.CommandType = CommandType.Text

'Dim red As OleDb.OleDbDataReader

red = cmd.ExecuteReader

'MsgBox(field1)

Catch ex As Exception

MsgBox(ex.Message)

End Try

Return field1

'con.Close()

End Function

لجزاك الله خير هذا هو الكود.

بسم الله الرحمن الرحيم

أخى العزيز

ممكن تستخدم الكود ده

Function query1(ByVal field1 As String) As String
Try
'con.Open()
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = con
cmd.CommandText = field1
cmd.CommandType = CommandType.Text
'Dim red As OleDb.OleDbDataReader
red = cmd.ExecuteReader
  dr = cmd.ExecuteReader
         Do While dr.Read

dim o as string=dr("Filrdname")

    Loop


Catch ex As Exception
MsgBox(ex.Message)
End Try
Return o
'con.Close()
End Function

حيث Filrdname

هو اسم العامود اللى هيرجع من ه القيمة

جرب و انا معك

سبب الخطأ أن oledbdatareader لم يقرأ بعد البيانات[post=/index.php?showtopic=220782]/index.php?showtopic=220782

لابد من استدعاء الدالة reader.Read

جزاكم الله خير انا قرآت الموضوع وجربت الكوج التالي ولم ينفع هو يقرأ الفونكشن اللي انا عامله وما فيه مشاكل بس إذا كانت القيمة في الحقل اللي في قاعدة البيانات وهو من نوع Integer صفر أو فاضية يطلع الخطأ هذا حاولت اسوي جمل استثنائية لكن أيضاً لم أتوصل للحل

بسم الله الرحمن الرحيم

أخى العزيز

ممكن تضع جملة ال query الخاصة بيك

علشان نشوفها بس

TestObject.query1("select * from store_nejd where [class_nejd]=" & DataGridView1.Rows(nrow1).Cells(3).Value & " and [amount_honey]>0 order by [date_invoice]")