12-03-24, 12:48 PM
12-03-24, 01:25 PM
وعليكم السلام ورحمة الله وبركاته
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
12-03-24, 01:30 PM
شكرا جزيلا اخي طه ربنا يبارك فيك و رمضان مبارك ان شاء الله
كلو تمام و الحمد لله الملف الان يشتغل و ينفذ المطلوب فقط لي رجاء صغير لو سمحت فقط كمعلومة من باب فضول التعلم
كيف انفذ الفكرة لايجاد العدد بالتاكست بكس 3 بطريقة الاستعلام و بارك الله فيك
كلو تمام و الحمد لله الملف الان يشتغل و ينفذ المطلوب فقط لي رجاء صغير لو سمحت فقط كمعلومة من باب فضول التعلم
كيف انفذ الفكرة لايجاد العدد بالتاكست بكس 3 بطريقة الاستعلام و بارك الله فيك
12-03-24, 01:50 PM
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")
12-03-24, 02:07 PM
ربنا يبارك فيك و في صالح اعمالك اخ طه
كله تمام و الحمد لله
كله تمام و الحمد لله