[Microformt]

[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 


[Microformt]

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 


اخي العزيز
السلام عليكم
الف شكر ورحم الله البطن الذي اتى بك وجزك الله خيراً