مشكلة عند فراءة البيانات ؟

cn.Open

ما فهمت شيى من الرد؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اذا في حد يعرف حل المشكلة الرجاء الاطلاع والمساعد والشكر موصول.................

الأخ SOLO.NET بيخبرك أنه قبل السطر While re.Readً لازم تفتح الاتصال بالأمر cn.Open

لا تنس تحذف السطر re.Read اللي قبله

المشكلة مازالت قائمة وشكرا للاجتهاد

الرسالة

Invalid attempt to call Read when reader is closed

كما قلت لك سابقاً ازل السطر re.Close() من حلقة الـ While اخي العزيز 

لايجوز استخدام الميثود re.Close() داخل حلقة While شرطها هو re.Read() !!!!!!!!

بالتوفيق ان شاء الله

.

شكراً على التقييم

عندك مشكلة في جملة INSERT INTO MSGDetails ويجب مراجعته (أقصد أسماء جقوله)

هنا تذكر أن الجدول هو MSGDetails

ولكنك في حقوله تذكر جدول آخر وهو Staff بدليل ...INSERT INTO MSGDetails ( [Staff.Name],[Staff.depar],[Staff.Job],[Staff.Tel],MSG,date

يبدو أنك نسختها من جملة SELECT ولم تنتبه أنها تتضمن اسم جدول مختلف عن المطلوب تنفذيه هنا

وهذه اجتهاد مني (إن شاء الله ما دخلت في العنوان غلط)   (أزلت اسم الجدول Staff من جملة INSERT INTO MSGDetails على افتراض ان اسماء الحقول صحيحة)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cn.Open()

        Dim se As String = " SELECT [ID],[Name], [depar], [Job], [Tel]    " & _
                           " FROM   [Staff]              " & _
                           " WHERE  [depar] = @depar;    "

        Dim com As New SqlClient.SqlCommand(se, cn)
        com.Parameters.AddWithValue("@depar", ComboBox1.Text)

        Dim re As SqlClient.SqlDataReader = com.ExecuteReader
        If re.HasRows Then

            're.Read()
            While re.Read()
                IDS = re.Item("ID")
                name = re.Item("Name")
                depar = re.Item("depar")
                job = re.Item("Job")
                tel = re.Item("Tel")

                Dim enter1 As String = " INSERT INTO [ozekimessageout] ( [sender], [receiver], [msg],  [operator],  [status] )  " & _
                                       "                        VALUES ( @sender,  @tel,       @msg,   @operator,   @status  ); "
                Dim com2 As New SqlClient.SqlCommand(enter1, cn)
                com.Parameters.AddWithValue("@sender", "0918244733")
                com.Parameters.AddWithValue("@tel", tel)
                com.Parameters.AddWithValue("@msg", TextBox1.Text)
                com.Parameters.AddWithValue("@operator", "Sudani")
                com.Parameters.AddWithValue("@status", "send")
                com2.ExecuteNonQuery()

                Dim enter As String = " INSERT INTO [MSGDetails] ( [Name], [depar], [Job], [Tel], [MSG], [date] )  " & _
                                      "                   VALUES ( @Name,  @depar,  @job,  @tel , @MSG , @date  ); "

                Dim com1 As New SqlClient.SqlCommand(enter, cn)
                com.Parameters.AddWithValue("@Name", name)
                com.Parameters.AddWithValue("@depar", depar)
                com.Parameters.AddWithValue("@job", job)
                com.Parameters.AddWithValue("@tel", tel)
                com.Parameters.AddWithValue("@MSG", TextBox1.Text)
                com.Parameters.AddWithValue("@date", DateTimePicker1.Text)
                com1.ExecuteNonQuery()

            End While

            MsgBox(" ", MsgBoxStyle.Information, "OK")

            TextBox1.Text = ""
            ComboBox1.SelectedIndex = -1

        Else
            MsgBox("No rows in " & ComboBox1.Text)

        End If

        ComboBox1.Focus()

        cn.Close()
    End Sub