منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ (/showthread.php?tid=42618)

كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ - Microformt - 04-10-22



RE: كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ - asemshahen5 - 05-10-22

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 


RE: كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ - Microformt - 05-10-22

(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 
اخي العزيز
السلام عليكم
الف شكر ورحم الله البطن الذي اتى بك وجزك الله خيراً