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

السلام عليكم ورحمة الله وبركاته
في سؤال هل في مجال اعمل دالة اوفنكشن لاستعراض المعلمومات من الجدول (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

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

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

السلام عليكم

هذا الكود بدون الاعتماد على الكلاس 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

(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

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

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

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

(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

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

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

hitman48

مساعدة

hitman48

مساعدة

hitman48

hitman48