[ابو ليلى]

تمام يا ابو الوسم
انا بعدلك على الكود الخاص بالدالة بحيث تقدر تمرر الحقل الذي تريد العد وفقه كوسيطة بالاضافة للقيمة المراد عدها
يعني صار فيك تجيب العدد لاي حقل تريده
مع انه فكرة يكون استعلام جاهز بالقاعدة افضل لك كون الانواع ثابته عندك
على اي حال هذا التعديل

PHP كود :

Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'KantdataDataSet.Model' table. You can move, or remove it, as needed.
        Me.ModelTableAdapter.Fill(Me.KantdataDataSet.Model)
        CollectAll()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GroupBox1.BackColor = Color.Gray
        ModelBindingSource.AddNew()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ModelBindingSource.EndEdit()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        CollectAll()
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ModelBindingSource.RemoveCurrent()
        ModelTableAdapter.Update(KantdataDataSet.Model)
        MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
        CollectAll()
    End Sub

#Region "ابو ليلى"

    Private Function GetCarBy_Name(ByVal CarName As String,ColumnName As String ) As Integer

        Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)
            Dim Serch As String = "Select count(" & ColumnName & ") As Couning From Model Where " & ColumnName & " " & "=@carName "
            Using SerChCommand As New OleDbCommand(Serch, Con)
                With SerChCommand
                    .Parameters.AddWithValue("@carName", CarName)
                    .Connection.Open()
                End With
                Using Reader As OleDbDataReader = SerChCommand.ExecuteReader
                    With Reader
                        While .Read
                            If .HasRows Then
                                Return CInt(Reader.Item("Couning"))
                            Else
                                Return 0
                            End If
                        End While
                    End With

                End Using
            End Using
        End Using
        Return 0

    End Function
    Private Sub CollectAll()
        TextBox3.Text = GetCarBy_Name("تويوتا", "id1")
        TextBox7.Text = GetCarBy_Name("مازدا", "id1")
        TextBox6.Text = GetCarBy_Name("نيسان", "id1")

        TextBox9.Text = GetCarBy_Name(Label10.Text, "ename")
        TextBox10.Text = GetCarBy_Name(Label11.Text, "ename")
        TextBox11.Text = GetCarBy_Name(Label12.Text, "ename")
        TextBox12.Text = GetCarBy_Name(Label13.Text, "ename")
        TextBox13.Text = GetCarBy_Name(Label14.Text, "ename")

        TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
    End Sub

#End Region



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox1.Text = "" Then
            Call notFound()
            Exit Sub

        Else

            Dim cantFind As String = TextBox1.Text

            ModelBindingSource.Filter = "(Convert(ename, 'System.String') LIKE '" & TextBox1.Text & "%')"

            If ModelBindingSource.Count <> 0 Then

                With DataGridView1
                    .ClearSelection()
                    .ReadOnly = True
                    .MultiSelect = False
                    .DataSource = ModelBindingSource
                End With

            End If

        End If

ErrExit:
        Exit Sub
SearchErr:
        MsgBox("Error Number " & Err.Number & vbNewLine &
               "Error Description " & Err.Description, MsgBoxStyle.Critical,
               "Reset Error!")
        Resume ErrExit
    End Sub
    Private Sub notFound()

        Dim txtS As TextBox = TextBox1
        With txtS
            .BackColor = Color.Silver
            .Select()
            .SelectAll()
        End With
    End Sub

    Private Sub GroupBox3_Enter(sender As Object, e As EventArgs) Handles GroupBox3.Enter

    End Sub
End Class