+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لو تكرمتم عدلوا لي هذا البرنامج (/showthread.php?tid=41777)
لو تكرمتم عدلوا لي هذا البرنامج - أبو خالد الشكري - 23-06-22
السلام عليكم أحبائي المبرمجين
أرجو لكم أوقاتًا ممتعة في إجازة نهاية هذا الأسبوع مع أسركم الكريمة
مرفق لكم برنامج صغير صممه لي الأستاذ سعود ... الله يحفظه جزاه الله خيرًا
ومهمة هذا البرنامج جلب أسماء الجداول والحقول في الداتا جريد فيو
والبرنامج شغال 100%
ولكنه حاليا شغال فقط على قواعد الأكسس
المطلوب فقط تعديل البرنامج بحيث أنه يقرأ قواعد SQL
وفقكم الله لما يحبه ويرضاه ، وسدد خطاكم .
RE: لو تكرمتم عدلوا لي هذا البرنامج - سعود - 23-06-22
تم تعديل المرفق
والتالي كل الاكواد من الفورم:
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
RE: لو تكرمتم عدلوا لي هذا البرنامج - أبو خالد الشكري - 23-06-22
أستاذي الزر المكتوب عليه (تحميل) لا يعمل !
RE: لو تكرمتم عدلوا لي هذا البرنامج - سعود - 23-06-22
(23-06-22, 07:58 PM)أبو خالد الشكري كتب : أستاذي الزر المكتوب عليه (تحميل) لا يعمل !
هل عدلت على الاكواد لكي يناسب المعطيات عندك؟
RE: لو تكرمتم عدلوا لي هذا البرنامج - أبو خالد الشكري - 23-06-22
خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل
وأصبح البرنامج حاليا يعمل 100% ويقرأ جميع أسماء جداول وحقول قواعد بيانات SQL (ملف mdf)
أشكرك جزيلا بحجم السماء
رحم الله والديك ، وجعل ما قمت به في ميزان حسناتك .
* مرفق البرامج بعد التعديل .
RE: لو تكرمتم عدلوا لي هذا البرنامج - سعود - 23-06-22
(23-06-22, 08:24 PM)أبو خالد الشكري كتب : خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل
وأصبح البرنامج حاليا يعمل 100% ويقرأ جميع أسماء جداول وحقول قواعد بيانات SQL (ملف mdf)
أشكرك جزيلا بحجم السماء
رحم الله والديك ، وجعل ما قمت به في ميزان حسناتك .
* مرفق البرامج بعد التعديل .
العفو اخي واسال الله لك مثل مادعوت لي وزيادة.
RE: لو تكرمتم عدلوا لي هذا البرنامج - DR.YASER - 23-06-22
(23-06-22, 08:49 PM)سعود كتب :(23-06-22, 08:24 PM)أبو خالد الشكري كتب : خلاص أستاذ سعود تم التعديل
والآن زر (تحميل) أصبح يعمل
وأصبح البرنامج حاليا يعمل 100% ويقرأ جميع أسماء جداول وحقول قواعد بيانات SQL (ملف mdf)
أشكرك جزيلا بحجم السماء
رحم الله والديك ، وجعل ما قمت به في ميزان حسناتك .
* مرفق البرامج بعد التعديل .
العفو اخي واسال الله لك مثل مادعوت لي وزيادة.
اللهم بارك فى أخى العزيز سعود
اللهم استره فى الدنيا و الآخرة و ارزقه من حيث لا يحتسب
RE: لو تكرمتم عدلوا لي هذا البرنامج - أبو خالد الشكري - 23-06-22
اللهم آميــــــــــن