تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخلاص اسم قاعدة البينات
#1
هناك مسار لقاعدة البيانات كالتالي مثلا

c:\aaa\data.mdb

كيف اظهر اسم القاعدة فقط

شكرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله

في المرفقات مثال على استخلاص اسم أي ملف (دون الامتداد).


الملفات المرفقة
.zip   GettingFileName.zip (الحجم : 73.35 ك ب / التحميلات : 121)
الرد
تم الشكر بواسطة:
#3
شكرا لك كثيرا
حاولت الاستفادة من الحصول علي قاعدة البيانات من مسار القاعدة المذكور واعوض به مكان اسم القاعدة في كود عمل نسخة احتياطية للقاعدة لكني فشلت

حيث ان هذا الكود ممتاز ولكن يجب ان نحدد اسم القاعدة

هل استطيع استبدال اسم القاعدة بالاسم الذي حصلت عليه من المسار كما ذكرته حضرتك

اتمني تعديل الكود شكرا

Try
If Conn.State = ConnectionState.Open Then Conn.Close()


If MsgBox("سوف يتم عمل نسخة احتياطية من قاعدة البيانات" & vbCrLf & "DataCopy وضعها في مسار البرنامج في المجلد", vbMsgBoxRight + vbExclamation + vbYesNo, "نسخ احتياطي") = MsgBoxResult.Yes Then


Application.DoEvents()


'اذا وجد نسخة بهذا الاسم يمسحها
If IO.File.Exists(Application.StartupPath & "\Compact.mdb") Then
IO.File.Delete(Application.StartupPath & "\Compact.mdb")

End If


' كود ضغط واصلاح قاعدة البيانات

Dim Engine

Engine = CreateObject("JRO.JetEngine")

Engine.CompactDatabase("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\elmy_thanawy.mdb;user id=admin;jet oledb:database password=123321", _
"provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Compact.mdb;user id=admin;jet oledb:database password=123321")


'كود حذف قاعدة البيانات القديمة

Kill(Application.StartupPath & "\elmy_thanawy.mdb")



'كود اعادة تسمية قاعدة البيانات التي تم ضغطها واصلاحها

My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Compact.mdb", "elmy_thanawy.mdb")


'كود التحقق من وجود المجلد DataCopy
If IO.Directory.Exists(Application.StartupPath & "\DataCopy") = False Then


'ان لم يكن موجد يقوم بانشاء مجلد جديد
IO.Directory.CreateDirectory(Application.StartupPath & "\DataCopy")


''انشاء مجلد جديد في وضع مخفي
'IO.Directory.CreateDirectory(Application.StartupPath & "\DataCopy").Attributes = FileAttributes.Hidden

End If





'كود نسخة قاعدة البيانات باسخدام البروجريس بار والتاريخ


Dim GregorianDTF As System.Globalization.DateTimeFormatInfo = New System.Globalization.CultureInfo("Ar-Sy", True).DateTimeFormat

GregorianDTF.Calendar = New System.Globalization.GregorianCalendar

Dim DToday As String = DateTime.Today.ToString("dd-MM-yyyy", GregorianDTF)




Dim CopyFrom, CopyTo As String

CopyFrom = Application.StartupPath & "\elmy_thanawy.mdb"

CopyTo = Application.StartupPath & "\DataCopy\" & DToday & ".mdb"

ProgressBar1.Visible = True


Dim sr As New IO.FileStream(CopyFrom, IO.FileMode.Open)
Dim sw As New IO.FileStream(CopyTo, IO.FileMode.Create)

Dim len As Long = sr.Length - 1


For i As Long = 0 To len

sw.WriteByte(sr.ReadByte)

If i Mod 1000 = 0 Then

Application.DoEvents()

ProgressBar1.Value = i * 100 / len



End If

Next



'كود البحث عن قواعد البيانات لغاية قبل شهر من تاريخ اليوم ويقوم بحذفها مع ترك اخر قاعدتين بتاريخ قبل يوم



Dim DAddDays As DateTime = GregorianDTF.Calendar.AddDays(DateTime.Today, -1)

Dim DAddMonths As DateTime = GregorianDTF.Calendar.AddMonths(DateTime.Today, -3)

Dim D_AddDays As String = DAddDays.ToString("dd-MM-yyyy", GregorianDTF)

Dim D_AddMonths As String = DAddMonths.ToString("dd-MM-yyyy", GregorianDTF)


Do Until D_AddMonths = D_AddDays

If IO.File.Exists(Application.StartupPath & "\DataCopy\" & D_AddMonths & ".mdb") = True Then
Kill(Application.StartupPath & "\DataCopy\" & D_AddMonths & ".mdb")
End If


DAddMonths = GregorianDTF.Calendar.AddDays(DAddMonths, 1)

D_AddMonths = DAddMonths.ToString("dd-MM-yyyy", GregorianDTF)

Loop


'End
End If

Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End

End Try
الرد
تم الشكر بواسطة:
#4
.....

كود :
'
Dim file As String = "C:\Users\Admin\Desktop\NewFolder\database1.mdb"
Dim result As String
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetFullPath(file)                  ' C:\Users\Admin\Desktop\NewFolder\database1.mdb
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetPathRoot(file)                  ' C:\
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetDirectoryName(file)             ' C:\Users\Admin\Desktop\NewFolder
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetFileName(file)                  ' database1.mdb
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetFileNameWithoutExtension(file)  ' database1
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetExtension(file)                 ' .mdb
'-----------------------------------------------------------------------------------------------------

.....
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 4,835 16-07-18, 08:48 PM
آخر رد: aridje34
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 128 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 2,100 02-03-18, 05:13 PM
آخر رد: محمد بن عطية
  إضافة الصورة في قاعدة البيانات iFanfan 0 191 01-03-18, 06:02 PM
آخر رد: iFanfan
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 236 30-01-18, 02:59 PM
آخر رد: atefkhalf2004
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 218 27-01-18, 06:07 PM
آخر رد: أبو عمر
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 317 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 8,140 04-10-17, 10:08 PM
آخر رد: sofiane0552
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 2,355 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 392 18-08-17, 05:40 PM
آخر رد: waelalmsry75

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم