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

السلام عليكم أحبائي المبرمجين

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

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

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

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

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

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

تم تعديل المرفق

والتالي كل الاكواد من الفورم:

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", {Nothing, Nothing, Nothing, "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", {Nothing, Nothing, tbname, Nothing})
            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 Object, e As EventArgs) Handles LstBoxTableName.SelectedIndexChanged
        GetColsNames(LstBoxTableName.Text)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnDbaseLoad.Click
        DgvColumnsName.Rows.Clear()
        Call GetTablesName()
    End Sub

End Class 

أستاذي الزر المكتوب عليه (تحميل) لا يعمل !

(23-06-22, 07:58 PM)أبو خالد الشكري كتب : [ -> ]أستاذي الزر المكتوب عليه (تحميل) لا يعمل !

هل عدلت على الاكواد لكي يناسب المعطيات عندك؟

خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل

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

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

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

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

(23-06-22, 08:24 PM)أبو خالد الشكري كتب : [ -> ]خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل

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

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

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

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

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

(23-06-22, 08:49 PM)سعود كتب : [ -> ]
(23-06-22, 08:24 PM)أبو خالد الشكري كتب : [ -> ]خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل

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

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

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

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

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

اللهم بارك فى أخى العزيز سعود
اللهم استره فى الدنيا و الآخرة و ارزقه من حيث لا يحتسب

اللهم آميــــــــــن