تقييم الموضوع :
  • 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.
ارجو المساعده
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اين الخطئ في هد الكود ahmedbezia 4 88 , 03:57 PM
آخر رد: Sorax
  [سؤال] مشكلة , برنامج عند فتحه يقفل وكان يعمل قبل كدا aqarfinder 2 58 29-05-20, 12:56 AM
آخر رد: ابراهيم ايبو
  مساعدة في خل مشكلة فيجوال بيسك mennad sofiane 4 84 28-05-20, 03:10 AM
آخر رد: mennad sofiane
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 98 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 77 27-05-20, 11:49 PM
آخر رد: momani33
  مشكلة معقدة بعرض البيانات بالدتاجريد على ما فكرت فيها لم اجد لها حل ابو محمد محمد محمد 10 282 24-05-20, 12:16 PM
آخر رد: ابو محمد محمد محمد
  مشكلة رسالة overflow لمابعمل حفظ mazentq 3 70 24-05-20, 08:46 AM
آخر رد: mazentq
  [سؤال] مشكلة في اتصال قاعدة البيانات اكسس mazentq 9 203 24-05-20, 08:45 AM
آخر رد: mazentq
  مشكلة webbrowser بالتعامل مع المواقع Basil Abdallah 0 37 22-05-20, 08:18 AM
آخر رد: Basil Abdallah
  مشكلة التكرار في الكريستل ريبورت makky 10 901 20-05-20, 08:48 AM
آخر رد: zinom

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


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