04-10-22, 07:41 PM
05-10-22, 05:56 AM
PHP كود :
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("SELECT * from aol")
Dim s As String
' حجم ملف قاعدة البيانات
s = FileLen(App.Path & "\db1.mdb")
' على فرض أنه أقصى مساحة لقاعدة البيانات هي 2 غيغا
ProgressBar1.Max = 2097152
ProgressBar1.Value = s / 1024
Label2.Caption = ProgressBar1.Value & " KB From 2097152 KB" '
End Sub
05-10-22, 08:53 AM
(05-10-22, 05:56 AM)asemshahen5 كتب : [ -> ]اخي العزيزPHP كود :
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "/db1.mdb")
Set rs = db.OpenRecordset("SELECT * from aol")
Dim s As String
' حجم ملف قاعدة البيانات
s = FileLen(App.Path & "\db1.mdb")
' على فرض أنه أقصى مساحة لقاعدة البيانات هي 2 غيغا
ProgressBar1.Max = 2097152
ProgressBar1.Value = s / 1024
Label2.Caption = ProgressBar1.Value & " KB From 2097152 KB" '
End Sub
السلام عليكم
الف شكر ورحم الله البطن الذي اتى بك وجزك الله خيراً