+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET (/showthread.php?tid=26076)
كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET - كريم جودي - 11-08-18
السلام عليكم لي سؤال
كيف يمكن معرفة حجم قاعدة بيانات اكسس من خلال VB.NET
RE: كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET - Null - 11-08-18
قاعدة بيانات اكسس يعتبر ملف والحد الأقصى له هو 2 جيجابايت
وتستطيع أن تعرف كم بلغ حجمه عن قراءة حجم الملف نفسه مثل
كود :
Dim sz As Long = FileLen("C:\Dataase1.accdb")RE: كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET - كريم جودي - 11-08-18
(11-08-18, 04:49 AM)كريم جودي كتب : السلام عليكم لي سؤال
كيف يمكن معرفة حجم قاعدة بيانات اكسس من خلال VB.NET
شكرا اخي [b]Null[/b] ولكن لو ارفقت لنا مثال لنفهم منه وشكرا مسبقا
RE: كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET - حريف برمجة - 11-08-18
(11-08-18, 10:34 AM)كريم جودي كتب :(11-08-18, 04:49 AM)كريم جودي كتب : السلام عليكم لي سؤال
كيف يمكن معرفة حجم قاعدة بيانات اكسس من خلال VB.NET
شكرا اخي [b]Null[/b] ولكن لو ارفقت لنا مثال لنفهم منه وشكرا مسبقا
يمكنك الاستفادة من الكود السابق كالتالي :
كود :
اسم الملف Databaase1.accdb
هنا الملف موجود في القرص سي
Dim sz As Long = FileLen("C:\Database1.accdb")
هنا الملف موجود في مجلد البرنامج
Dim sz As Long = FileLen(Application.StartupPath & "\Database1.accdb")
هنا الحجم بالكيلوبايت
sz = sz / 1024
وضع حجم الملف في تكست بوكس
TextBox1.Text = Val(sz) & " kb"
أو إظهار رسالة بحجم الملف
MsgBox(sz & " kb")RE: كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET - كريم جودي - 11-08-18
(11-08-18, 12:09 PM)حريف برمجة كتب : يمكنك الاستفادة من الكود السابق كالتالي :شكرا لك اخي حريف برمجة وهو المطلوب
كود :
اسم الملف Databaase1.accdb
هنا الملف موجود في القرص سي
Dim sz As Long = FileLen("C:\Database1.accdb")
هنا الملف موجود في مجلد البرنامج
Dim sz As Long = FileLen(Application.StartupPath & "\Database1.accdb")
هنا الحجم بالكيلوبايت
sz = sz / 1024
وضع حجم الملف في تكست بوكس
TextBox1.Text = Val(sz) & " kb"
أو إظهار رسالة بحجم الملف
MsgBox(sz & " kb")