تقييم الموضوع :
  • 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 ك ب / التحميلات : 12)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla

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


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