منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] استعراض معلومات الجدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19020)



استعراض معلومات الجدول - hitman48 - 29-01-17

السلام عليكم ورحمة الله وبركاته
في  سؤال هل في مجال اعمل دالة اوفنكشن لاستعراض المعلمومات من الجدول (load data from table)
واقوم في كل مرة اعطيها فقط البرمترات
اصل عندي الكثير من الجداول والدالة التي اعمل بها اشك فيها كثير اخاف يحدث ظغط على البرنامج

كود :
Private Sub ShowDataExam()
       Dim DTEL As New DataTable
       DGVEXAM.RowTemplate.Height = 50
       DGVEXAM.Font = New Font("Arial", 9, FontStyle.Bold)
       OpenConnexion()
       With DataConnexion.CMD
           .Connection = DataConnexion.Conn
           .CommandText = "select * from examiners"
       End With
       DA.SelectCommand = CMD
       DT.Clear()
       DA.Fill(DTEL)
       DGVEXAM.DataSource = DTEL
       Conn.Close()
       datagridviewExamControl()
       NumCountExam()
   End Sub

لاني في كل مرة اي عندما اعمل جدول جديد اعمل نفس الشيء واقوم بوضعها في حدث اللود

هل من مساعدة او اراء
وشكرا


RE: استعراض معلومات الجدول - مساعدة - 29-01-17

السلام عليكم

هذا الكود بدون الاعتماد على الكلاس DataConnexion الذي تستخدمه
كود :
Private Sub ShowDataExam(DGV As DataGridView, TBL As String, CNN As OleDb.OleDbConnection)
    Using DA As New OleDb.OleDbDataAdapter("SELECT * FROM [" & TBL & "]", CNN)
        Dim DTEL As New DataTable
        DA.Fill(DTEL)
        DGV.Font = New Font("Arial", 9, FontStyle.Bold)
        DGV.DataSource = DTEL
    End Using
End Sub



RE: استعراض معلومات الجدول - hitman48 - 29-01-17

(29-01-17, 11:32 PM)مساعدة كتب : السلام عليكم

هذا الكود بدون الاعتماد على الكلاس DataConnexion الذي تستخدمه
كود :
Private Sub ShowDataExam(DGV As DataGridView, TBL As String, CNN As OleDb.OleDbConnection)
   Using DA As New OleDb.OleDbDataAdapter("SELECT * FROM [" & TBL & "]", CNN)
       Dim DTEL As New DataTable
       DA.Fill(DTEL)
       DGV.Font = New Font("Arial", 9, FontStyle.Bold)
       DGV.DataSource = DTEL
   End Using
End Sub


حسنا اخي ماذا لو اردت ارفاق الكلاس للكود


RE: استعراض معلومات الجدول - مساعدة - 29-01-17

لا أعلم شيئا عن الكلاس الذي لم ترفقه من البداية،

ولكن هذا الكود يكفي.


RE: استعراض معلومات الجدول - hitman48 - 30-01-17

(29-01-17, 11:47 PM)مساعدة كتب : لا أعلم شيئا عن الكلاس الذي لم ترفقه من البداية،

ولكن هذا الكود يكفي.


هو فقط كلاس خاص بالاتصال فقط لا غير من اسموا
كود :
public calass DataConnexion

Public dbconn As New MySqlConnection
    Public sql As String
    Public dbcomm As New MySqlCommand
    Public dbread As MySqlDataReader
    
    Private Sub openconnexion
    
        dbconn = New MySqlConnection("Data Source=localhost;user id=root;password=demo;port=3310;database=vb_mysql")
        Try
            dbconn.Open()
        Catch ex As Exception
            MsgBox("Connection Error: " & ex.Message.ToString)
        End Try
        dbconn.close
    End Sub


Private Sub colseconnextion
    dbconn.close
      
    End Sub

end class



RE: استعراض معلومات الجدول - hitman48 - 30-01-17

اوك اخي انا الان خارج من المكتب غدا انشاء الله تعالى
فقط اترك لي معلومات الاتصال لو سمحت وهاهو السكايب حقي:
amino.mamino2