حول الاستعلام المشروط VB.Net - نسخة قابلة للطباعة

PHP كود :
Imports System.Data.OleDb

Public Class Form6

    Public con As New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0;Data Source=" & Application.StartupPath & "\mydata.accdb ")

    Private Sub Form6_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
        FillDataGridView(TextBox8.Text)

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Dim sqlSELECT As String = "SELECT COUNT(*) FROM [tb4] WHERE [Project]=@prj"

        Dim sqlINSERT As String = "INSERT INTO [tb4] ([Project], [Project Name], [class], [n], [f], [r]) VALUES (@prj, @prjName, @class, @n, @f, @r )"

        Using cmd As New OleDbCommand(sqlSELECT, con)
            cmd.Parameters.AddWithValue("@prj", TextBox8.Text)
            If con.State <> ConnectionState.Open Then con.Open()

            If cmd.ExecuteScalar > 0 Then
                MsgBox("Exist")
                Return

            Else
                cmd.CommandText = sqlINSERT
                cmd.Parameters.AddWithValue("@prjName", TextBox9.Text)
                cmd.Parameters.AddWithValue("@class", TextBox1.Text)
                cmd.Parameters.AddWithValue("@n", TextBox2.Text)
                cmd.Parameters.AddWithValue("@f", TextBox3.Text)
                cmd.Parameters.AddWithValue("@r", TextBox4.Text)


                Dim ret As Integer = cmd.ExecuteNonQuery()
                con.Close()

                If ret > 0 Then

                    MsgBox("Saved successfully", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "Save")

                    FillDataGridView()

                Else
                    MsgBox("Saving failed", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight, "Save")

                End If

            End If

        End Using
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.Hide()
        Form18.Show()
    End Sub

    Private Sub LinkLabel1_Click(sender As Object, e As System.EventArgs) Handles LinkLabel1.Click
        If LinkLabel1.Text = "Show" Then
            Me.Height = "692"
            LinkLabel1.Text = "Hide"
        Else
            LinkLabel1.Text = "Show"
            Me.Height = "463"
        End If
    End Sub

    Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If MsgBox("هل تريد إضافة بيانات جديدة ", vbYesNo + vbQuestion, "إضافة جديدة") = MsgBoxResult.Yes Then
            TextBox1.Text = ""
            TextBox1.Enabled = True
            TextBox2.Text = ""
            TextBox4.Text = ""
            TextBox3.Text = ""
        End If
    End Sub

    Private Sub TextBox8_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox8.TextChanged
        FillDataGridView(TextBox8.Text)
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        FillDataGridView(TextBox8.Text)
    End Sub

    Private Sub FillDataGridView(Optional prj As String = "")
        Dim sql As String = "SELECT * FROM [tb4] " & IIf(prj.Trim = "", "", " WHERE [Project]=@prj")

        Using da As New OleDbDataAdapter(sql, con)
            If prj.Trim <> "" Then da.SelectCommand.Parameters.AddWithValue("@prj", prj)

            Dim dt As New DataTable
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End Using
    End Sub


End Class