منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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

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

اريد كود لذلك

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

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

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

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

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

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

كود :

txt.Text =  ofd.FileName

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

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

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

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

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

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