+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة عند تنفيذ الكود البرمجي هذا مع العلم نقلته لشاشة اخرى واشتغل (/showthread.php?tid=23170)
مشكلة عند تنفيذ الكود البرمجي هذا مع العلم نقلته لشاشة اخرى واشتغل - nooralcown - 01-01-18
Dim cmd As New SqlClient.SqlCommand
Dim DR_mainstoried As SqlClient.SqlDataReader
Dim MySqlSreach As String = "Select num,iddate,type,acount,comment,typefrom,mostand,storenum,currenceynum,currenceyrate,main From mainstoried Where num = '" & TextBox1.Text & "'"
' Try
If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()
cmd.Connection = Con
cmd.CommandType = Data.CommandType.Text
cmd.CommandText = MySqlSreach
DR_mainstoried = cmd.ExecuteReader
DR_mainstoried.Read()
If DR_mainstoried.HasRows Then
'Me.Txtnum.Text = DR_mainstoried("num").ToString
Me.Dtpdate.Value = DR_mainstoried("iddate").ToString
Me.ComboBox1.Text = DR_mainstoried("type").ToString
Me.TextBox2.Text = DR_mainstoried("acount").ToString
Me.TextBox3.Text = DR_mainstoried("comment").ToString
Me.TextBox4.Text = DR_mainstoried("typefrom").ToString
Me.TextBox5.Text = DR_mainstoried("mostand").ToString
Me.TextBox8.Text = DR_mainstoried("storenum").ToString
Me.TextBox9.Text = DR_mainstoried("currenceynum").ToString
Me.TextBox10.Text = DR_mainstoried("currenceyrate").ToString
' Me.Txtmain.Text = DR_mainstoried("main").ToString
DR_mainstoried.Close()
Else
DR_mainstoried.Close()
'cleartext()
' MsgBox(" عفواً . لا يوجد بيانات ", MsgBoxStyle.Information)
End If
' Catch ex As Exception
'MessageBox.Show(ex.Message)
Con.Close()
' End Try
رساله الخطا هي
Invalid attempt to call MetaData when reader is closed.
ارجو المساعده