تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود و شرح لللكود بالصوره
#1
Photo 
السلام عليكم ورحمة الله و بركاته 

أخواني الكرام أرجو منكم أن تساعدوني في كتابه الكود المشروح أمامكم بالصورة أرجو من لدية المعرفه و الخبره لا يبخل علينا و الله يجزاكم خير 

ننتظر منكم الرد


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
في جملة ال Select بدل ان تكتب اسم الجدول يمكن ان تأخذه جدول اخر في الفورم اي عند الضغط على الاسم
ان شاء الله تنجح الفكرة معك
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم أخي العزيز ورحمة الله وبركاته

الأكواد :
الإعلان عن المتغير التالي :

PHP كود :
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb;Persist Security Info=False"

جلب أسماء الجداول من قاعدة بيانات أكسس :
PHP كود :
con.Open()

 
       Dim schemaTable As DataTable
        schemaTable 
con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {NothingNothingNothing"Table"})
 
       For Each r As DataRow In schemaTable.Rows
            Dim v0 
As String r.Item("Table_Name").ToString()
 
           DGVTable.Rows.Add(v0)
 
       Next

        con
.Close() 

جلب الحقول لكل جدول :
PHP كود :
DGVField.Rows.Clear()

 
       con.Open()
 
       Dim SelectedTable As String DGVTable.CurrentRow.Cells(0).Value
        Dim Rest
() As String = {NothingNothingSelectedTableNothing}
 
       Dim columns As String "Columns"
 
       Dim dt As DataTable con.GetSchema(columnsRest)
 
       For Each r As DataRow In dt.Rows
            Dim v0 
As String r.Item("Column_Name").ToString()
 
           DGVField.Rows.Add(v0)
 
       Next

        con
.Close() 

النتيجة :
   

   

   

   



المرفق :
.rar   khodor1985 - GetTableName.rar (الحجم : 271.27 ك ب / التحميلات : 58)

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: عدنان الشمري , salah mansour
#4
السـلام عليكم ورحمة الله وبركاته 

ودي أسألك أنت أشتريت البرنج من الأستاذ محمد البحرواي ..؟

وهل السورس كود عندك الأصلي ..؟
الرد }}}}
تم الشكر بواسطة:
#5
(20-02-16, 07:51 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته

الأكواد :
الإعلان عن المتغير التالي :

PHP كود :
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb;Persist Security Info=False"

جلب أسماء الجداول من قاعدة بيانات أكسس :
PHP كود :
con.Open()

 
       Dim schemaTable As DataTable
        schemaTable 
con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {NothingNothingNothing"Table"})
 
       For Each r As DataRow In schemaTable.Rows
            Dim v0 
As String r.Item("Table_Name").ToString()
 
           DGVTable.Rows.Add(v0)
 
       Next

        con
.Close() 

جلب الحقول لكل جدول :
PHP كود :
DGVField.Rows.Clear()

 
       con.Open()
 
       Dim SelectedTable As String DGVTable.CurrentRow.Cells(0).Value
        Dim Rest
() As String = {NothingNothingSelectedTableNothing}
 
       Dim columns As String "Columns"
 
       Dim dt As DataTable con.GetSchema(columnsRest)
 
       For Each r As DataRow In dt.Rows
            Dim v0 
As String r.Item("Column_Name").ToString()
 
           DGVField.Rows.Add(v0)
 
       Next

        con
.Close() 

النتيجة :










المرفق :

أتمنى لك التوفيق

رائع جدا
لكن ممكن تشرح لنا الكود عشان نفهمه بدل ماناخده كوبى وبست
وازاى نقدر نعدل عليه عشان نضيف نوع الحقول فى جدول الاعمدة وازاى نضيف التشيك بوكس
واسف انى هاتعبك
زى ماهو فى الصورة
الرد }}}}
تم الشكر بواسطة:
#6
أخي العزيز، لقد اعتزلت VB.Net وأنا الآن أعمل على لغة CSharp مع تقنية Linq To Sql.

السلام عليكم أخي العزيز ورحمة الله وبركاته
أنظر إلى هذا المثال طبعا بلغة c# بتقنية Linq to SQL :
شوف البساطة وقارن مع الكود السابق بتقنية AdO.NET :

استدعاء الجداول الموجودة في قاعدة البيانات :
PHP كود :
var tb db.Mapping;
            foreach (var 
t in tb.GetTables())
            {
                
dgvTables.Rows.Add(t.TableName);
            } 

استدعاء حقول الجدول :
PHP كود :
var fd db.Mapping.GetMetaType(typeof(Center));
            foreach (var 
item in fd.DataMembers)
            {
                
dgvField.Rows.Add(item.Name);
            } 

أكتر من هيك بساطة وسرعة ما عاد في

أتمنى لك التوفيق
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة:
#7
كنت اتمنى ان اجد الاجابة عندك ولكن يبدو انى جيت متاخر
حظى وحش
متشكر
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985


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


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