[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

Dim Conne As New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "\Database1.Mdb;User Id=Admin;Jet Oledb:Database Password=")

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TotalStudent()
End Sub
Private Sub TotalStudent()
    'Dim dt As New DataTable()'
    'Dim cmd As New OleDbCommand("SELECT Count(studentname) As TotalStudent From Table1", Conne)'
    'Dim Adp As New OleDbDataAdapter(cmd)'
    'dt.Clear()'
    'If Adp.Fill(dt) > 0 Then'
    '    Me.TextBox1.Text = dt.Rows(0).Item("TotalStudent")'
    '    Me.TextBox1.Text = Format(Val(Me.TextBox1.Text.Trim), "00")'
    'Else'
    '    Me.TextBox1.Text = "00"'
    'End If'

    TextBox1.Text = ExScalar("SELECT Count(studentname) As TotalStudent From Table1")
    TextBox2.Text = ExScalar("SELECT DISTINCT Count(studentcode) As TotalStudent From Table2 Where format(examsdate,'dd/MM/yyyy') = '" & Format(DateTime.Now, "dd/MM/yyyy") & "'")
    TextBox3.Text = Val(TextBox1.Text.Trim) - Val(TextBox2.Text.Trim)
End Sub

Dim strConn As String = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "\Database1.Mdb;User Id=Admin;Jet Oledb:Database Password="

Public Function ExScalar(cmdText As String, ParamArray pParam As OleDbParameter()) As Object
    Using pConn As New OleDbConnection(strConn)
        pConn.Open()

        Dim cmd As OleDbCommand = New OleDbCommand(cmdText, pConn)
        For Each p In pParam
            cmd.Parameters.Add(p)
        Next

        Dim ob As Object
        ob = cmd.ExecuteScalar()

        Return ob
    End Using
End Function