تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استعراض معلومات الجدول
#1
السلام عليكم ورحمة الله وبركاته
في  سؤال هل في مجال اعمل دالة اوفنكشن لاستعراض المعلمومات من الجدول (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

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

هل من مساعدة او اراء
وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

هذا الكود بدون الاعتماد على الكلاس 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
الرد }}}}
تم الشكر بواسطة: hitman48
#3
(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


حسنا اخي ماذا لو اردت ارفاق الكلاس للكود
الرد }}}}
تم الشكر بواسطة:
#4
لا أعلم شيئا عن الكلاس الذي لم ترفقه من البداية،

ولكن هذا الكود يكفي.
الرد }}}}
تم الشكر بواسطة:
#5
(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
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم أخي العزيز ورحمة الله وبركاته
إذا عندك تيم فيور أفيدك بطريقة لو أحببت

هذا رابط الفيس بوك الخاص بي : https://www.facebook.com/khodor.shahimi
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد }}}}
تم الشكر بواسطة:
#7
اوك اخي انا الان خارج من المكتب غدا انشاء الله تعالى
فقط اترك لي معلومات الاتصال لو سمحت وهاهو السكايب حقي:
amino.mamino2
الرد }}}}
تم الشكر بواسطة:
#8
كلمني على الفيس بوك ونتفق هناك
عن مولا نا علي ابن أبي طالب عليه السلام :
إضرب بعض الرأي ببعض يتولد منه الصواب.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) Abdelazez.Ahmad 10 232 24-12-17, 01:58 AM
آخر رد: abohamad
  أريد عدد السجلات في الجدول بشرط معين ( بالوضع المنفصل ) Abdelazez.Ahmad 2 85 23-12-17, 09:58 PM
آخر رد: Abdelazez.Ahmad
  المساعدة في كود تصدير الجدول الي الاكسيل khaled12345 10 324 26-11-17, 05:50 PM
آخر رد: khaled12345
  رسالة خطأ عند استعراض البيانات aftfm 2 109 18-10-17, 06:33 PM
آخر رد: Rabeea Qbaha
  مساعده بقراءة معلومات الشيك من جهاز خاص بالشيكات Rabeea Qbaha 4 161 16-10-17, 08:12 PM
آخر رد: Rabeea Qbaha
  قراءة معلومات json من الموقع سلامات 4 160 10-10-17, 06:46 PM
آخر رد: سلامات
  [سؤال] استعراض حالة عمل البرنامج ابو روضة 7 280 08-10-17, 11:22 AM
آخر رد: ابو روضة
  سورس إظهار معلومات البرنامج fouadhdfouad 5 140 07-10-17, 07:00 PM
آخر رد: fouadhdfouad
  أحتاج كود اعادة ترقيم حقل المسلسل بعد حذف صف ما في الجدول Abdelazez.Ahmad 14 678 19-09-17, 09:38 PM
آخر رد: أحمد إبراهيم سعد
  معرفة أسماء الأعمدة فى الجدول كرم ابوهشام 2 137 16-08-17, 02:03 AM
آخر رد: سعود الشامان

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


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