[محمد خيري]

السلام عليكم و رمضان مبارك للجميع 
اخواني كيف يمكن عمل الاحصاء حسب ما هو موضح بالفورم بالملف و بارك الله فيكم مقدما

[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 


[محمد خيري]

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

[Taha Okla]

PHP كود :

TextBox3.Text = ExScalar("SELECT (Count(Table1.studentcode)- (SELECT DISTINCT Count(studentcode) From Table2 Where format(examsdate,'dd/MM/yyyy') = '" & Format(DateTime.Now, "dd/MM/yyyy") & "'))  From Table1") 


[محمد خيري]

ربنا يبارك فيك و في صالح اعمالك اخ طه
كله تمام و الحمد لله