[كريم جودي]

السلام عليكم لي سؤال
كيف يمكن معرفة حجم قاعدة بيانات اكسس من خلال VB.NET

[Null]

قاعدة بيانات اكسس يعتبر ملف والحد الأقصى له هو 2 جيجابايت
وتستطيع أن تعرف كم بلغ حجمه عن قراءة حجم الملف نفسه مثل

كود :

Dim sz As Long = FileLen("C:\Dataase1.accdb")

[كريم جودي]

(11-08-18, 04:49 AM)كريم جودي كتب : السلام عليكم لي سؤال
كيف يمكن معرفة حجم قاعدة بيانات اكسس من خلال VB.NET

شكرا اخي [b]Null[/b]  ولكن لو ارفقت لنا مثال لنفهم منه وشكرا مسبقا

[حريف برمجة]

(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")

[كريم جودي]

(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")

شكرا لك اخي حريف برمجة  وهو المطلوب