[عاصم النجار]

السلام عليكم ورحمة الله وبركاته

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

عايز اجلب اسم قاعدة البيانات فقط وليس المسار 

اريد كود لذلك

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اولا يجب جلب مكتبة System.IO
ثانيا في الكود ادناه يوجد سطرين وبجانبهم تعليق يالعربي 
ان كنت تريد اسم القاعدة مع اللاحقة
او اسم القاعدة بدون لاحقة 
اختر احدهما

كود :

Imports System.IO
Public Class Form1
   Public Sub Opendirectory(ByVal txt As TextBox)
       Dim ofd As New OpenFileDialog()

       '.ShowHelp = True
       ofd.Title = "Choose Database"
       ofd.Filter = "Access 2007-2016|*.accdb|Access 1997-2003|*.mdb|All file|*.*"
       ofd.ShowDialog()
       If ofd.FileName.Length And (ofd.FileName.EndsWith("mdb") Or ofd.FileName.EndsWith("accdb")) Then
           'txt.Text = Path.GetFileName(ofd.FileName) ' هذا يعرش اسم القاعدة مع اللاحقة
           txt.Text = Path.GetFileNameWithoutExtension(ofd.FileName) ' هذا يعرش اسم القاعدة فقط
       End If

   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Opendirectory(TextBox1)
   End Sub
End Class

[عاصم النجار]

(04-05-20, 12:16 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اولا يجب جلب مكتبة System.IO
ثانيا في الكود ادناه يوجد سطرين وبجانبهم تعليق يالعربي 
ان كنت تريد اسم القاعدة مع اللاحقة
او اسم القاعدة بدون لاحقة 
اختر احدهما

كود :

Imports System.IO
Public Class Form1
   Public Sub Opendirectory(ByVal txt As TextBox)
       Dim ofd As New OpenFileDialog()

       '.ShowHelp = True
       ofd.Title = "Choose Database"
       ofd.Filter = "Access 2007-2016|*.accdb|Access 1997-2003|*.mdb|All file|*.*"
       ofd.ShowDialog()
       If ofd.FileName.Length And (ofd.FileName.EndsWith("mdb") Or ofd.FileName.EndsWith("accdb")) Then
           'txt.Text = Path.GetFileName(ofd.FileName) ' هذا يعرش اسم القاعدة مع اللاحقة
           txt.Text = Path.GetFileNameWithoutExtension(ofd.FileName) ' هذا يعرش اسم القاعدة فقط
       End If

   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Opendirectory(TextBox1)
   End Sub
End Class

اخي الحبيب الكود هذا للمسار انا عايز لاسم القاعدة بدون المسار

[WaeLx]

(03-05-20, 11:58 PM)عاصم النجار كتب :

السلام عليكم ورحمة الله وبركاته

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

عايز اجلب اسم قاعدة البيانات فقط وليس المسار 

اريد كود لذلك

السلام عليكم و رحمة الله و بركاته

عذرا لفضولي أخي

اسم قاعدة البيانات موجود في جملة الاتصال، و بالتالي انت تعلمه بالفعل عند كتابة جملة الاتصال، فما حاجتك للاستعلام عنه؟

[عاصم النجار]

(04-05-20, 02:00 AM)WaeLx كتب :

(03-05-20, 11:58 PM)عاصم النجار كتب :

السلام عليكم ورحمة الله وبركاته

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

عايز اجلب اسم قاعدة البيانات فقط وليس المسار 

اريد كود لذلك

السلام عليكم و رحمة الله و بركاته

عذرا لفضولي أخي

اسم قاعدة البيانات موجود في جملة الاتصال، و بالتالي انت تعلمه بالفعل عند كتابة جملة الاتصال، فما حاجتك للاستعلام عنه؟

عادي ولا يهمك انا اعلم اسم قاعدة البيانات انا شغال على برنامج كود بيلدر تمام وعايز اعمل قاعدة البيانات اظهارها في تكست 
مثال : xxx.accdb او xxx.mdb فهمتني يالحبيب انا لا اريد المسار

[ابراهيم ايبو]

السلام عليكم اخي الكريم
الكود الذي اوردته لك يجلب اسم قاعدة البيانات
فقط بدون المسار هل جربته؟
وقلت لك لديك سطرين احدهما يجلب مع اللاحقة والثاني بدون لاحقة
واذا كتبنا هكذا يجلب المسار مع اسم القاعدة كاملا

كود :

txt.Text =  ofd.FileName

والكود الذي اورته لك انا استخدمه في برنامج CodeBuilder الخاص بي
???!!!!!!

[عاصم النجار]

(04-05-20, 03:34 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
الكود الذي اوردته لك يجلب اسم قاعدة البيانات
فقط بدون المسار هل جربته؟
وقلت لك لديك سطرين احدهما يجلب مع اللاحقة والثاني بدون لاحقة
واذا كتبنا هكذا يجلب المسار مع اسم القاعدة كاملا

كود :

txt.Text =  ofd.FileName

والكود الذي اورته لك انا استخدمه في برنامج CodeBuilder الخاص بي
???!!!!!!

جربت نفس الكود قبل ما ارفع المشكلة يعطني المسار وليس اسم القاعدة

[معاند الحظ]

يا اخي معقول ماتعرف تقتطع اسم القاعدة من الاكواد التي اعطوك اياه الاخوان؟

[عاصم النجار]

(04-05-20, 05:15 AM)معاند الحظ كتب : يا اخي  معقول  ماتعرف تقتطع اسم القاعدة من الاكواد التي اعطوك اياه الاخوان؟

منك نتعلم اخي 
اعطينا الكود

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
من عادتي قبل ان اقوم بالاجابة عن اي سؤال
اقوم باختبار الكود مهما كان صغيرا او سهلا مرة واثنين وثلاث
والحمد لله على نعمته وفضله علي 
الكود شرحته لك بالتفصيل الممل وازيد عليه المثال وفيه 3 تكست بوكس
الاول يجلب المسار كاملا
 والثاني يجلب اسم قاعدة البيانات مع اللاحقة
والثالث يجلب اسم قاعدة البيانات بدون اللاحقة 
وهذه صورة من تنفيذ البرنامج للكود 
وليجرب البرنامج من عنده اي شك