منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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 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 1024
Label2
.Caption ProgressBar1.Value " KB From 2097152 KB" '
End Sub 
اخي العزيز
السلام عليكم
الف شكر ورحم الله البطن الذي اتى بك وجزك الله خيراً