(13-03-23, 05:40 PM)سعود كتب : و عليكم السلام ورحمة الله و بركاته
اخي الكريم حاول تستخدم دوال Functions توفر عليك المزيد من الاكواد.
اما رسالة الخطأ
 Invalid attempt to call NextResult when reader is closed.
فتعني انه تم اغلاق القاريء  ولا يمكن قراءة نتيجة تالية..

(13-03-23, 12:47 PM)فراس محي كتب :

PHP كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing.Printing
Imports PrintPraviewXT.PrintClassXT
Public Class Form2
    Dim Da, daferas, damohy As OleDbDataAdapter
    Dim cmd, cmdferas As OleDbCommand
    Dim Dt, dtferas, dtmohy As New DataTable
    Dim ds, dsferas, dsmohy, dsmosa As New DataSet
    Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=moistore1.accdb")
    Dim sqlstr As String = " Select * from [INPUT1] "
    Dim sqlstr1 As String = " Select * from [INPUT] "


    Dim bind, bind1 As New BindingSource


        Private Sub Button1_Click(sender As Object, e As EventArgs)
        Form1.Show()
        Me.Close()
    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Left = (My.Computer.Screen.WorkingArea.Width / 2) - (Me.Width / 2)
        Me.Top = (My.Computer.Screen.WorkingArea.Height / 2) - (Me.Height / 2)
        'fullcombo3()
        fullcombo1()
        
        Timer1 = New System.Windows.Forms.Timer
        Timer1.Interval = 1000
        Timer1.Enabled = True
        Timer1.Start()


    End Sub

  

   

    Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
       
       

    End Sub
   
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        dsferas.Clear()
        daferas = New OleDbDataAdapter("select  * from [INPUT] Where carnamee Like '%" + ComboBox1.Text + "%'", Con)
        daferas.Fill(dsferas, "INPUT")
        ComboBox3.DataSource = dsferas.Tables("INPUT")
        ComboBox3.DisplayMember = "symble"
        ComboBox3.ValueMember = "id"
    End Sub
    Sub savemyinput()

        If TextBox2.Text = "" Then
            MsgBox("الرجاء اختيار  الكميه")
        ElseIf TextBox3.Text = "" Then
            MsgBox("الرجاء اختيار  رقم المستند")
        ElseIf TextBox4.Text = "" Then
            MsgBox("الرجاء اختيار تاريخ المستند")
        ElseIf TextBox5.Text = "" Then
            MsgBox("الرجاء اختيار المستلم ")
        ElseIf TextBox6.Text = "" Then
            MsgBox("الرجاء اختيار رقم الموافقه ")
        ElseIf TextBox7.Text = "" Then
            MsgBox("الرجاء اختيار تاريخ الموافقه")

        ElseIf TextBox9.Text = "" Then
            MsgBox("الرجاء اختيار اسم المادة ")
        ElseIf TextBox10.Text = "" Then
            MsgBox("الرجاء اختيار رمز المادة")
        ElseIf ComboBox1.Text = "" Then
            MsgBox("الرجاء اختيار اسم العجلة ")
        ElseIf ComboBox2.Text = "" Then
            MsgBox("الرجاء اختيار  الصنف")
        ElseIf TextBox11.Text = "" Then
            MsgBox("الرجاء اختيار  الجهه المجهزه")
        ElseIf TextBox13.Text = "" Then
            MsgBox("الرجاء اختيار  السعر")


        Else
            cmd = New OleDbCommand("insert into [INPUT1] (id,amount,iddoc,datesnd,resevern,acceptno,acceptdate,namess,symname,notesinpu,carname,provider,pricee)values(@id,@amount,@iddoc,@datesnd,@resevern,@acceptno,@acceptdate,@namess,@symname,@notesinpu,@carname,@provider,@pricee)", Con)
            With cmd.Parameters.AddWithValue("@id", TextBox1.Text)
                cmd.Parameters.AddWithValue("@amount", TextBox2.Text)
                cmd.Parameters.AddWithValue("@iddoc", TextBox3.Text)
                cmd.Parameters.AddWithValue("@datesnd", TextBox4.Text)
                cmd.Parameters.AddWithValue("@resevern", TextBox5.Text)
                cmd.Parameters.AddWithValue("@acceptno", TextBox6.Text)
                cmd.Parameters.AddWithValue("@dateaccpt", TextBox7.Text)
                cmd.Parameters.AddWithValue("@namess", TextBox9.Text)
                cmd.Parameters.AddWithValue("@symname", TextBox10.Text)
                'cmd.Parameters.AddWithValue("@classo", ComboBox2.Text)
                cmd.Parameters.AddWithValue("@notesinpu", TextBox8.Text)
                cmd.Parameters.AddWithValue("@carname", ComboBox1.Text)
                cmd.Parameters.AddWithValue("@provider", TextBox11.Text)
                cmd.Parameters.AddWithValue("@pricee", TextBox13.Text)
                'cmdferas = New OleDbCommand("insert into [AOMUNTT] (id,amount,iddoc,datesnd,resevern,acceptno,acceptdate,namess,symname,notesinpu,carname,provider,pricee)values(@id,@amount,@iddoc,@datesnd,@resevern,@acceptno,@acceptdate,@namess,@symname,@notesinpu,@carname,@provider,@pricee)", Con)


                MsgBox("تم حفظ المستند بنجاح")

                'TextBox1.Text = ""
                'TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
                TextBox7.Text = ""
                TextBox8.Text = ""
                TextBox9.Text = ""
                TextBox10.Text = ""
                'ComboBox1.Text = ""
                ComboBox2.Text = ""
                TextBox11.Text = ""
                TextBox13.Text = ""
            End With
            Con.Open()
            cmd.ExecuteNonQuery()
            Con.Close()
            'addrelem()
        End If

    End Sub
   

    Sub fullcombo3()
        ComboBox3.Items.Clear()
        daferas = New OleDbDataAdapter("select  * from [myinput]", Con)
        daferas.Fill(dsferas, "myinput")
        ComboBox3.DataSource = dsferas.Tables("myinput")
        ComboBox3.DisplayMember = "symble"
        ComboBox3.ValueMember = "id"
       

    End Sub
    Sub fatora()
        If TextBox2.Text = "" Then
            MsgBox("الرجاء اختيار  الكميه")
        ElseIf TextBox3.Text = "" Then
            MsgBox("الرجاء اختيار  رقم المستند")
        ElseIf TextBox4.Text = "" Then
            MsgBox("الرجاء اختيار تاريخ المستند")
        ElseIf TextBox5.Text = "" Then
            MsgBox("الرجاء اختيار المستلم ")
        ElseIf TextBox6.Text = "" Then
            MsgBox("الرجاء اختيار رقم الموافقه ")
        ElseIf TextBox7.Text = "" Then
            MsgBox("الرجاء اختيار تاريخ الموافقه")

        ElseIf TextBox9.Text = "" Then
            MsgBox("الرجاء اختيار اسم المادة ")
        ElseIf TextBox10.Text = "" Then
            MsgBox("الرجاء اختيار رمز المادة")
        ElseIf ComboBox1.Text = "" Then
            MsgBox("الرجاء اختيار اسم العجلة ")
        ElseIf ComboBox2.Text = "" Then
            MsgBox("الرجاء اختيار  الصنف")
        ElseIf TextBox11.Text = "" Then
            MsgBox("الرجاء اختيار  الجهه المجهزه")



        Else
            cmd = New OleDbCommand("insert into [INPUT1] (amount,iddoc,datesnd,resevern,acceptno,dateaccpt,namem,rsim,classo,notesinpu,carname,provider)values(@amount,@iddoc,@datesnd,@resevern,@acceptno,@dateaccpt,@namem,@rsim,@classo,@notesinpu,@carname,@provider)", Con)
            With cmd.Parameters.AddWithValue("@amount", TextBox2.Text)
                cmd.Parameters.AddWithValue("@iddoc", TextBox3.Text)
                cmd.Parameters.AddWithValue("@datesnd", TextBox4.Text)
                cmd.Parameters.AddWithValue("@resevern", TextBox5.Text)
                cmd.Parameters.AddWithValue("@acceptno", TextBox6.Text)
                cmd.Parameters.AddWithValue("@dateaccpt", TextBox7.Text)
                cmd.Parameters.AddWithValue("@namem", TextBox9.Text)
                cmd.Parameters.AddWithValue("@rsim", TextBox10.Text)
                cmd.Parameters.AddWithValue("@classo", ComboBox2.Text)
                cmd.Parameters.AddWithValue("@notesinpu", TextBox8.Text)
                cmd.Parameters.AddWithValue("@carname", ComboBox1.Text)
                cmd.Parameters.AddWithValue("@provider", TextBox11.Text)



                MsgBox("تم حفظ المستند بنجاح")

                TextBox9.Text = ""
                TextBox10.Text = ""
                ComboBox2.Text = ""

            End With
            Con.Open()
            cmd.ExecuteNonQuery()
            Con.Close()
            'addrelem()
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs)
        fatora()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs)
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox11.Text = ""
    End Sub
    Sub fulldgv1()
        Con.Open()
        'TextBox1.Text = ""
        ds.Clear()
        Dim da As New OleDbDataAdapter(sqlstr, Con)
        da.Fill(ds, "INPUT1")
        Con.Close()
        dgv1.DataSource = ds
        dgv1.DataMember = "INPUT1"
        dgv1.Refresh()
        dgv1.Columns(0).Visible = True
        dgv1.Columns(0).HeaderText = " رقم المعرف"
        dgv1.Columns(1).Visible = True
        dgv1.Columns(1).HeaderText = "الكميه  "
        dgv1.Columns(1).Width = 180
        dgv1.Columns(2).Visible = True
        dgv1.Columns(2).HeaderText = " رقم المستند "
        dgv1.Columns(3).Visible = True
        dgv1.Columns(3).HeaderText = " تاريخ المستند "
        dgv1.Columns(4).Visible = True
        dgv1.Columns(4).HeaderText = " المستلم  "
        dgv1.Columns(5).Visible = True
        dgv1.Columns(5).HeaderText = " الجهه المجهزه  "
        dgv1.Columns(6).Visible = True
        dgv1.Columns(6).HeaderText = " رقم الموافقه  "
        'dgv1.Columns(5).Width = 180
        dgv1.Columns(7).Visible = True
        dgv1.Columns(7).HeaderText = " تاريخ الموافقه  "
        dgv1.Columns(8).Visible = True
        dgv1.Columns(8).HeaderText = " اسم الماده "
        dgv1.Columns(9).Visible = True
        dgv1.Columns(9).HeaderText = " رمز الماده   "
        dgv1.Columns(10).Visible = True
        dgv1.Columns(10).HeaderText = " الصنف  "
        dgv1.Columns(11).Visible = True
        dgv1.Columns(11).HeaderText = " اسم العجله  "
        dgv1.Columns(12).Visible = True
        dgv1.Columns(12).HeaderText = " الملاحظات  "
    End Sub

   

    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

        If Con.State = ConnectionState.Open Then
            Con.Close()
        ElseIf CheckBox3.CheckState = CheckState.Checked Then
            'On Error Resume Next
            Con.Open()
            'TextBox1.Text = ""
            ds.Clear()
            Dim da As New OleDbDataAdapter(sqlstr, Con)
            da.Fill(ds, "INPUT1")
            Con.Close()
            dgv1.DataSource = ds
            dgv1.DataMember = "INPUT1"
            dgv1.Refresh()
            dgv1.Columns(0).Visible = True
            dgv1.Columns(0).HeaderText = " رقم المعرف"
            dgv1.Columns(1).Visible = True
            dgv1.Columns(1).HeaderText = "الكميه  "
            dgv1.Columns(1).Width = 180
            dgv1.Columns(2).Visible = True
            dgv1.Columns(2).HeaderText = " رقم المستند "
            dgv1.Columns(3).Visible = True
            dgv1.Columns(3).HeaderText = " تاريخ المستند "
            dgv1.Columns(4).Visible = True
            dgv1.Columns(4).HeaderText = " المستلم  "
            dgv1.Columns(5).Visible = True
            dgv1.Columns(5).HeaderText = " الجهه المجهزه  "
            dgv1.Columns(6).Visible = True
            dgv1.Columns(6).HeaderText = " رقم الموافقه  "
            'dgv1.Columns(5).Width = 180
            dgv1.Columns(7).Visible = True
            dgv1.Columns(7).HeaderText = " تاريخ الموافقه  "
            dgv1.Columns(8).Visible = True
            dgv1.Columns(8).HeaderText = " اسم الماده "
            dgv1.Columns(9).Visible = True
            dgv1.Columns(9).HeaderText = " رمز الماده   "
            dgv1.Columns(10).Visible = True
            dgv1.Columns(10).HeaderText = " الصنف  "
            dgv1.Columns(11).Visible = True
            dgv1.Columns(11).HeaderText = " اسم العجله  "
            dgv1.Columns(12).Visible = True
            dgv1.Columns(12).HeaderText = " الملاحظات  "


            'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
            dgv1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            dgv1.MultiSelect = False
            With Me.dgv1
                .RowsDefaultCellStyle.BackColor = Color.YellowGreen
                .AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
                dgv1.BackgroundColor = Color.White
            End With
            Me.KeyPreview = True
            'TextBox3.Focus()
            'TextBox2.Text = ""
            If Trim(TextBox6.Text) <> "" Then
                da = New OleDbDataAdapter("Select * From INPUT1 Where acceptno Like '%" + TextBox6.Text + "%'", Con)
                ds.Clear()
                da.Fill(ds, "INPUT1")
                dgv1.DataSource = ds
                dgv1.DataMember = "INPUT1"
                dgv1.Refresh()
            End If
            TextBox6.Focus()
            'dgv1.Select()
        End If
    End Sub



    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged

        Dim sqlstr1 As String = " Select * from INPUT1 INNER join myinput on INPUT1.id = myinput.id "
        If Con.State = ConnectionState.Open Then
            Con.Close()
        ElseIf CheckBox1.CheckState = CheckState.Checked Then



            Con.Open()
            ds.Clear()
            Dim da As New OleDbDataAdapter(sqlstr1, Con)
            da.Fill(ds, "INPUT1,myinput")
            Con.Close()
            dgv1.DataSource = ds
            dgv1.DataMember = "INPUT1,myinput"
            dgv1.Refresh()
            dgv1.Columns(0).Visible = True
            dgv1.Columns(0).HeaderText = " رقم المعرف"
            dgv1.Columns(1).Visible = True
            dgv1.Columns(1).HeaderText = "الكميه  "
            dgv1.Columns(1).Width = 180
            dgv1.Columns(2).Visible = True
            dgv1.Columns(2).HeaderText = " رقم المستند "
            dgv1.Columns(3).Visible = True
            dgv1.Columns(3).HeaderText = " تاريخ المستند "
            dgv1.Columns(4).Visible = True
            dgv1.Columns(4).HeaderText = " المستلم  "
            dgv1.Columns(5).Visible = True
            dgv1.Columns(5).HeaderText = " الجهه المجهزه  "
            dgv1.Columns(6).Visible = True
            dgv1.Columns(6).HeaderText = " رقم الموافقه  "
            'dgv1.Columns(5).Width = 180
            dgv1.Columns(7).Visible = True
            dgv1.Columns(7).HeaderText = " تاريخ الموافقه  "
            dgv1.Columns(8).Visible = True
            dgv1.Columns(8).HeaderText = " اسم الماده "
            dgv1.Columns(9).Visible = True
            dgv1.Columns(9).HeaderText = " رمز الماده   "
            dgv1.Columns(10).Visible = True
            dgv1.Columns(10).HeaderText = " الصنف  "
            dgv1.Columns(11).Visible = True
            dgv1.Columns(11).HeaderText = " اسم العجله  "
            dgv1.Columns(12).Visible = True
            dgv1.Columns(12).HeaderText = " الملاحظات  "


           
            If Trim(TextBox9.Text) <> "" Then
                da = New OleDbDataAdapter("Select * From INPUT1 Where namem Like '%" + TextBox9.Text + "%'", Con)
                ' Me.tableBindingSource.Filter = " [column] LIKE '" & TextBox1.Text & "%'"
                ds.Clear()
                da.Fill(ds, "INPUT1")
                dgv1.DataSource = ds
                dgv1.DataMember = "INPUT1"
                dgv1.Refresh()
                
            End If
            TextBox9.Focus()
        End If 'dgv1.Select()
    End Sub


    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        addrelem()
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        If Con.State = ConnectionState.Open Then
            Con.Close()
        ElseIf CheckBox6.CheckState = CheckState.Checked Then
            'On Error Resume Next
            Con.Open()
            'TextBox1.Text = ""
            ds.Clear()
           
            If Trim(TextBox3.Text) <> "" Then
                da = New OleDbDataAdapter("Select * From INPUT1 Where iddoc Like '%" + TextBox3.Text + "%'", Con)
                ds.Clear()
                da.Fill(ds, "INPUT1")
                dgv1.DataSource = ds
                dgv1.DataMember = "INPUT1"
                dgv1.Refresh()
            End If
            TextBox3.Focus()
            'dgv1.Select()
        End If
    End Sub
    Private BITMAP As Bitmap
   

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        
    End Sub

    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Me.Hide()
        mainform.Show()
    End Sub

    






    Sub bindtexts()
       
        damohy = New OleDbDataAdapter("select  * from [REALAM] where ID =" & TextBox1.Text, Con)
        damohy.Fill(dtmohy)
        TextBox12.DataBindings.Clear()
        TextBox12.DataBindings.Add(New Binding("text", dsmohy.Tables("REALAM"), "AOMUNTT"))
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If Label15.BackColor = Color.Yellow Then
            Label15.BackColor = Color.Red
        Else
            Label15.BackColor = Color.Yellow
        End If

    End Sub

    Private Sub ComboBox3_MouseMove(sender As Object, e As MouseEventArgs) Handles ComboBox3.MouseMove
        TextBox10.Text = ComboBox3.Text
    End Sub

   






    Private Sub ComboBox3_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox3.SelectionChangeCommitted
        daferas = New OleDbDataAdapter("select  * from [INPUT] where id =" & ComboBox3.SelectedValue, Con)
        daferas.Fill(dtferas)
        TextBox12.DataBindings.Clear()
        TextBox9.DataBindings.Clear() 'من الضروري تفريغ البايندينغ لكل تكست حتى لاتحدث اخطاء 
        ComboBox2.DataBindings.Clear()
        TextBox1.DataBindings.Clear()
        TextBox9.DataBindings.Add(New Binding("text", dsferas.Tables("INPUT"), "name"))
        ComboBox2.DataBindings.Add(New Binding("text", dsferas.Tables("INPUT"), "class"))
        TextBox1.DataBindings.Add(New Binding("text", dsferas.Tables("INPUT"), "id"))
        dsmohy.Clear()
        damohy = New OleDbDataAdapter("select  * from [REALAM] where ID =" & TextBox1.Text, Con)
        damohy.Fill(dsmohy, "REALAM")
        TextBox12.DataBindings.Add(New Binding("text", dsmohy.Tables("REALAM"), "AOMUNTT"))

    End Sub



    Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged

        If Con.State = ConnectionState.Open Then
            Con.Close()
        ElseIf CheckBox2.CheckState = CheckState.Checked Then
            Con.Open()
            ds.Clear()
            
            If Trim(TextBox9.Text) <> "" Then
                da = New OleDbDataAdapter("Select * From INPUT1 Where id =" & TextBox1.Text, Con)
                ' Me.tableBindingSource.Filter = " [column] LIKE '" & TextBox1.Text & "%'"
                ds.Clear()
                da.Fill(ds, "INPUT1")
                dgv1.DataSource = ds
                dgv1.DataMember = "INPUT1"
                dgv1.Refresh()
            End If
            TextBox1.Focus()
        End If 'dgv1.Select()
    End Sub

  
    Sub addrelem()
        Dim item As Integer
        cmdferas = New OleDbCommand("UPDATE [REALAM] SET AOMUNTT = @AOMUNTT WHERE ID like '" + TextBox1.Text + "'", Con)
        cmdferas.Parameters.AddWithValue("@AOMUNTT", Val(TextBox2.Text) + Val(TextBox12.Text))
        MsgBox("تم حفظ المستند بنجاح")
        con.Open()
        item = cmdferas.ExecuteNonQuery()
        TextBox1.Text = ""
        TextBox2.Text = ""
        con.Close()
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        savemyinput()
        addrelem()
    End Sub

    Private Sub TextBox11_Enter(sender As Object, e As EventArgs) Handles TextBox11.Enter
        If Con.State = ConnectionState.Open Then
            Con.Close()
        ElseIf CheckBox4.CheckState = CheckState.Checked Then
            Con.Open()


            Da = New OleDbDataAdapter("Select * From INPUT1 Where provider Like '%" + TextBox11.Text + "%'", Con)
            ds.Clear()
            Da.Fill(ds, "INPUT1")
            dgv1.DataSource = ds
            dgv1.DataMember = "INPUT1"
            dgv1.Refresh()
        End If
        TextBox11.Focus()
    End Sub

   

    Private Sub TextBox11_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox11.KeyPress

       

    End Sub

    Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged
       

    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        If Con.State = ConnectionState.Open Then
            Con.Close()
        ElseIf CheckBox5.CheckState = CheckState.Checked Then
            Con.Open()
            ds.Clear()
            
                da = New OleDbDataAdapter("Select * From INPUT1 Where resevern Like '%" + TextBox5.Text + "%'", Con)
                ' Me.tableBindingSource.Filter = " [column] LIKE '" & TextBox1.Text & "%'"
                ds.Clear()
                da.Fill(ds, "INPUT1")
                dgv1.DataSource = ds
                dgv1.DataMember = "INPUT1"
                dgv1.Refresh()
            End If
            TextBox5.Focus()

    End Sub

  

    Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click

    End Sub
    Sub fullcombo1()
        Try

            ComboBox1.Items.Clear()
            Da = New OleDbDataAdapter("select DISTINCT [carnamee] from [INPUT]", Con)
            Da.Fill(Dt)
            ComboBox1.DataSource = Dt
            ComboBox1.DisplayMember = "carnamee"

        Catch ex As Exception

        End Try
    End Sub
    
    Private Sub Button7_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub
End Class 


السلام عليكم اخوتي في الله 
عملت برنامج مواد احتياطيه للعجلات المشكله في واجهه الادخال للوارد اختار اسم العجله من كومبو 1 ياتي ببيانات المواد الاحتياطيه للعجله المختاره وعند اختيار ماده من كومبو 3 وارجع للاختيار نوع عجله ثانيه يضهر رساله خطا 
Invalid attempt to call NextResult when reader is closed.
البرنامج بالمرفق يرحمكم الله تعبني ه>ا الخطا 
كلمه المرور للبرنامج aa