[ تمّ الحل ] : البحث باسم صنف له عدة نوعيات

كود :

Private Sub CmbListItems_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbListItems.SelectedIndexChanged

        Try

            Dim Cmd_Pos As SqlCommand = New SqlCommand()

            Dim Reader_Pos As SqlDataReader = Nothing

            If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()

            Conne_2019.Open()

            Dim Query_Pos As String = " SELECT * From TBL_ITEMS Where ITEMS_Name = '" & CmbListItems.Text.Trim & "'"

            Cmd_Pos = New SqlCommand(Query_Pos, Conne_2019)

            Reader_Pos = Cmd_Pos.ExecuteReader()

            While Reader_Pos.Read

                If Reader_Pos IsNot Nothing Then

                    Me.TxtItemName.Text = Reader_Pos.Item("ITEMS_Name")

                    Me.TxtItemQualite.Text = Reader_Pos.Item("ITEMS_Qualite")

                    Me.CmbItemUnite.Text = Reader_Pos.Item("ITEMS_Unite")

                    Me.TxtItemStock.Text = Reader_Pos.Item("ITEMS_Stock")

                    Me.TxtItemPrice.Text = Reader_Pos.Item("ITEMS_Prix_Vente")

                    Me.TxtItemBarcode.Text = Reader_Pos.Item("ITEMS_Barcode")

                End If

            End While

            If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()

        Catch ex As Exception

            MsgBox("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)

        End Try

    End Sub

PHP كود :

cmb.datasource = dt
cmb.DisplayMember="إسم الصنف"
cmb.ValueMember=id

كود :

   Private Sub CmbListItems_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbListItems.SelectedIndexChanged

        Try

            Using da As New SqlDataAdapter("SELECT ITEMS_Qualite From TBL_ITEMS Where ITEMS_Name = '" & CmbListItems.Text.Trim & "'", Conne_2019)

                Dim dt As New DataTable

                da.Fill(dt)

                CmbItemQualite.DataSource = dt

                CmbItemQualite.DisplayMember = "ITEMS_Qualite"

            End Using

        Catch ex As Exception

            MsgBox("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)

        End Try

    End Sub



    Private Sub CmbItemQualite_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbItemQualite.SelectedIndexChanged

        Try

            Dim Query_Pos As String = " SELECT * From TBL_ITEMS Where ITEMS_Name = '" & CmbListItems.Text.Trim & "' And ITEMS_Qualite = '" & CmbItemQualite.Text.Trim & "'"

            Using da As New SqlDataAdapter(Query_Pos, Conne_2019)

                Dim dt As New DataTable

                If da.Fill(dt) > 0 Then

                    Me.CmbItemUnite.Text = dt.Rows(0).Item("ITEMS_Unite")

                    Me.TxtItemStock.Text = dt.Rows(0).Item("ITEMS_Stock")

                    Me.TxtItemPrice.Text = dt.Rows(0).Item("ITEMS_Prix_Vente")

                    Me.TxtItemBarcode.Text = dt.Rows(0).Item("ITEMS_Barcode")

                End If

            End Using

        Catch ex As Exception

            MsgBox("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)

        End Try

    End Sub

كود :

"select * from From TBL_ITEMS Where Itm_id = " & ComboBox1.SelectedValue, con

كود :

   Private Sub Fill_Table_Items()

        Dim InfoTable = New DataTable

        Dim InfoAdapter = New SqlDataAdapter("SELECT * From TBL_ITEMS Where ITEMS_Id = " & ComboBox1.SelectedValue, Conne_2019)

        InfoAdapter.Fill(InfoTable)

        If InfoTable.Rows.Count > 0 Then

            With Me.ComboBox1

                .DataSource = InfoTable

                .DisplayMember = "ITEMS_Name"

            End With

        End If

        Conne_2019.Close()

    End Sub

كود :

 Public Sub fillcmb_from_Items(ByVal cmb As ComboBox)

        'load Items in Combobox

        Dim dt As New DataTable

        Dim da As New OleDbDataAdapter

        dt.Clear()

        da = New OleDbDataAdapter("Select * from Items ", con)

        da.Fill(dt)

        If dt.Rows.Count > 0 Then

            cmb.DataSource = dt

            cmb.DisplayMember = "Itm_Name"

            cmb.ValueMember = "Itm_ID"

        Else

            cmb.DataSource = Nothing

        End If

    End Sub