تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لو تكرمتم عدلوا لي هذا البرنامج
#1
Heart 
السلام عليكم أحبائي المبرمجين

أرجو لكم أوقاتًا ممتعة في إجازة نهاية هذا الأسبوع مع أسركم الكريمة

مرفق لكم برنامج صغير صممه لي الأستاذ سعود ... الله يحفظه جزاه الله خيرًا
ومهمة هذا البرنامج جلب أسماء الجداول والحقول في الداتا جريد فيو 

والبرنامج شغال 100%  Heart

ولكنه حاليا شغال فقط على قواعد الأكسس

المطلوب فقط تعديل البرنامج بحيث أنه يقرأ قواعد SQL

وفقكم الله لما يحبه ويرضاه ، وسدد خطاكم .


الملفات المرفقة
.rar   OpenTables Name.rar (الحجم : 110.94 ك ب / التحميلات : 12)
الرد }}
تم الشكر بواسطة: سعود , سعود , جيولوجي مبتدئ
#2
تم تعديل المرفق
والتالي كل الاكواد من الفورم:
PHP كود :
Public Class Form1
    Dim dbPath 
As String
    Dim str 
As String "Data Source=(local)\SQLEXPRESS;Initial Catalog=pics;Integrated Security=True;MultipleActiveResultSets=True;"
 
   Private Sub GetTablesName()
 
       LstBoxTableName.Items.Clear()
 
       Using con As New SqlClient.SqlConnection(str)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Dim dt As DataTable con.GetSchema("TABLES", {NothingNothingNothing"BASE TABLE"})
 
           For Each row As DataRow In dt.Rows
                LstBoxTableName
.Items.Add(row("TABLE_NAME"))
 
           Next
            If con
.State ConnectionState.Open Then con.Close()
 
       End Using
    End Sub
    Private Sub GetColsNames
(ByVal tbname As String)
 
       DgvColumnsName.Rows.Clear()
 
       Using con As New SqlClient.SqlConnection(str)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Dim dt As DataTable con.GetSchema("Columns", {NothingNothingtbnameNothing})
 
           For i As Integer 0 To dt.Rows.Count 1
                DgvColumnsName
.Rows.Add(dt.Rows(i)("Column_name"))
 
           Next
            If con
.State ConnectionState.Open Then con.Close()
 
       End Using
    End Sub
    Private Sub tbnames_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles LstBoxTableName.SelectedIndexChanged
        GetColsNames
(LstBoxTableName.Text)
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles btnDbaseLoad.Click
        DgvColumnsName
.Rows.Clear()
 
       Call GetTablesName()
 
   End Sub

End 
Class 


الملفات المرفقة
.zip   OpenTables Name.zip (الحجم : 143.05 ك ب / التحميلات : 3)
=====* التوقيع *======
=================
الرد }}
#3
أستاذي الزر المكتوب عليه (تحميل) لا يعمل !
الرد }}
تم الشكر بواسطة: DR.YASER , DR.YASER , جيولوجي مبتدئ
#4
(23-06-22, 07:58 PM)أبو خالد الشكري كتب : أستاذي الزر المكتوب عليه (تحميل) لا يعمل !

هل عدلت على الاكواد لكي يناسب المعطيات عندك؟
=====* التوقيع *======
=================
الرد }}
#5
خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل

وأصبح البرنامج حاليا يعمل 100% ويقرأ جميع أسماء جداول وحقول قواعد بيانات SQL (ملف mdf

أشكرك جزيلا بحجم السماء

رحم الله والديك ، وجعل ما قمت به في ميزان حسناتك .

* مرفق البرامج بعد التعديل .


الملفات المرفقة
.rar   OpenTables Name SQL.rar (الحجم : 107.55 ك ب / التحميلات : 8)
الرد }}
تم الشكر بواسطة: سعود , DR.YASER , جيولوجي مبتدئ
#6
(23-06-22, 08:24 PM)أبو خالد الشكري كتب : خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل

وأصبح البرنامج حاليا يعمل 100% ويقرأ جميع أسماء جداول وحقول قواعد بيانات SQL (ملف mdf

أشكرك جزيلا بحجم السماء

رحم الله والديك ، وجعل ما قمت به في ميزان حسناتك .

* مرفق البرامج بعد التعديل .

العفو اخي واسال الله لك مثل مادعوت لي وزيادة.
=====* التوقيع *======
=================
الرد }}
#7
(23-06-22, 08:49 PM)سعود كتب :
(23-06-22, 08:24 PM)أبو خالد الشكري كتب : خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل

وأصبح البرنامج حاليا يعمل 100% ويقرأ جميع أسماء جداول وحقول قواعد بيانات SQL (ملف mdf

أشكرك جزيلا بحجم السماء

رحم الله والديك ، وجعل ما قمت به في ميزان حسناتك .

* مرفق البرامج بعد التعديل .

العفو اخي واسال الله لك مثل مادعوت لي وزيادة.

اللهم بارك فى أخى العزيز سعود 
اللهم استره فى الدنيا و الآخرة و ارزقه من حيث لا يحتسب
الرد }}
#8
اللهم آميــــــــــن
الرد }}
تم الشكر بواسطة: سعود , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ربط البرنامج بتوكين هيئة الزكاة و الدخل السعودية nabil.1710 4 1,134 10-06-22, 05:55 PM
آخر رد: bird.sad
  جلب أسماء الجداول- البرنامج يتوقف عن العمل mmaalmesry 5 275 05-06-22, 04:30 PM
آخر رد: asemshahen5
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 797 09-04-22, 02:15 AM
آخر رد: asmarsou
  طريقة تثبيت البرنامج عن بعد mohmmadadli1 1 513 29-03-22, 12:36 AM
آخر رد: Taha Okla
  سؤال عن تحزيم البرنامج ابو انس 21 1,814 10-01-22, 05:25 PM
آخر رد: ابو انس
  كيفية اضافة عملية بحث على web browser للملفات داخل البرنامج haithammoftah 3 914 29-12-21, 01:07 AM
آخر رد: سعود
  تفادي توقف البرنامج بعد فصل المودم ADAM12 3 778 19-12-21, 03:45 AM
آخر رد: ADAM12
  [سؤال] هل من طريقة فعالة لمنع استخدام البرنامج على جهاز آخر؟ Hazem1 1 667 10-12-21, 08:02 PM
آخر رد: اسامه الهرماوي
  حماية البرنامج بسريال الفلاشة Lathe1 1 630 07-12-21, 01:47 AM
آخر رد: asemshahen5
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 818 30-11-21, 07:37 AM
آخر رد: E100

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


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