11-08-18, 04:49 AM
11-08-18, 05:02 AM
قاعدة بيانات اكسس يعتبر ملف والحد الأقصى له هو 2 جيجابايت
وتستطيع أن تعرف كم بلغ حجمه عن قراءة حجم الملف نفسه مثل
وتستطيع أن تعرف كم بلغ حجمه عن قراءة حجم الملف نفسه مثل
كود :
Dim sz As Long = FileLen("C:\Dataase1.accdb")
11-08-18, 10:34 AM
11-08-18, 12:09 PM
(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, 03:25 PM
(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")