تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة عند تنفيذ الكود البرمجي هذا مع العلم نقلته لشاشة اخرى واشتغل
#1
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.
ارجو المساعده
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم