(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

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

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

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

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

اريد كود لذلك

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

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

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

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

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

اريد كود لذلك

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

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

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

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

كود :

txt.Text =  ofd.FileName

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

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