تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب اسم قاعدة البيانات من نوع اكسس في text
#1
السلام عليكم ورحمة الله وبركاته

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

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

اريد كود لذلك
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اولا يجب جلب مكتبة 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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asemshahen5
#3
(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

اخي الحبيب الكود هذا للمسار انا عايز لاسم القاعدة بدون المسار
الرد
تم الشكر بواسطة: asemshahen5
#4
(03-05-20, 11:58 PM)عاصم النجار كتب :
السلام عليكم ورحمة الله وبركاته

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

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

اريد كود لذلك


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


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

اسم قاعدة البيانات موجود في جملة الاتصال، و بالتالي انت تعلمه بالفعل عند كتابة جملة الاتصال، فما حاجتك للاستعلام عنه؟
الرد
تم الشكر بواسطة: asemshahen5
#5
(04-05-20, 02:00 AM)WaeLx كتب :
(03-05-20, 11:58 PM)عاصم النجار كتب :
السلام عليكم ورحمة الله وبركاته

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

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

اريد كود لذلك


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


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

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


عادي ولا يهمك انا اعلم اسم قاعدة البيانات انا شغال على برنامج كود بيلدر تمام وعايز اعمل قاعدة البيانات اظهارها في تكست 
مثال : xxx.accdb او xxx.mdb فهمتني يالحبيب انا لا اريد المسار
الرد
تم الشكر بواسطة: WaeLx , asemshahen5
#6
السلام عليكم اخي الكريم
الكود الذي اوردته لك يجلب اسم قاعدة البيانات
فقط بدون المسار هل جربته؟
وقلت لك لديك سطرين احدهما يجلب مع اللاحقة والثاني بدون لاحقة
واذا كتبنا هكذا يجلب المسار مع اسم القاعدة كاملا
كود :
txt.Text =  ofd.FileName
والكود الذي اورته لك انا استخدمه في برنامج CodeBuilder الخاص بي
???!!!!!!
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asemshahen5
#7
(04-05-20, 03:34 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
الكود الذي اوردته لك يجلب اسم قاعدة البيانات
فقط بدون المسار هل جربته؟
وقلت لك لديك سطرين احدهما يجلب مع اللاحقة والثاني بدون لاحقة
واذا كتبنا هكذا يجلب المسار مع اسم القاعدة كاملا
كود :
txt.Text =  ofd.FileName
والكود الذي اورته لك انا استخدمه في برنامج CodeBuilder الخاص بي
???!!!!!!

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

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


الملفات المرفقة صورة/صور
   

.zip   DataBaseName.zip (الحجم : 135.79 ك ب / التحميلات : 11)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: معاند الحظ , معاند الحظ , asemshahen5 , سعود , WaeLx


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 1 20 منذ 4 ساعة مضت
آخر رد: محمد كريّم
  مشكلة معقدة بعرض البيانات بالدتاجريد على ما فكرت فيها لم اجد لها حل ابو محمد محمد محمد 10 241 24-05-20, 12:16 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] مشكلة في اتصال قاعدة البيانات اكسس mazentq 9 169 24-05-20, 08:45 AM
آخر رد: mazentq
  [VB.NET] التعديل على كود لقرائة باقي المعلومات من قاعدة البيانات khairallah 1 53 24-05-20, 03:19 AM
آخر رد: اسامه الهرماوي
  [سؤال] مشكل اتصال قاعدة بينات في الفيجول 2017 ahmedbezia 2 64 20-05-20, 05:51 PM
آخر رد: rochdi191
  [VB.NET] كيف يتم تخزين المعلومات الموجودة في الداتا قريد غير متصلة بقاعدة البيانات rochdi191 8 120 16-05-20, 08:23 AM
آخر رد: عبدالله الدوسري
  طلب و أتمنى لو موجود: قاعدة بيانات أدوية DR.YASER 2 110 16-05-20, 05:47 AM
آخر رد: عبد العزيز البسكري
  سؤال في طريقة التعامل مع قاعدة البيانات عند تحزيم المشروع adnan gharbi 4 263 15-05-20, 01:03 PM
آخر رد: adnan gharbi
  [VB.NET] كيف يتم حفظ صورة في datagridiew غير متصل بقاعدة البيانات rochdi191 5 147 14-05-20, 08:30 PM
آخر رد: rochdi191
  [سؤال] مايكروسوفت اكسس منه 2 64 14-05-20, 08:25 PM
آخر رد: DR.YASER

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


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