تقييم الموضوع :
  • 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
كلمني على الفيس بوك ونتفق هناك
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] رفعت قاعدة بيانات access على Google Drive ولم استطع استعراض التقارير؟؟ abomo3ath 14 316 منذ 25 دقيقة مضت
آخر رد: mero5000
  [سؤال] المساعدة - في مرحلة استعراض الفواتير فراس الغزي 9 188 13-06-18, 06:47 PM
آخر رد: elgokr
  الحفظ بنفس الجدول حافظ حافظ 1 66 10-06-18, 02:57 AM
آخر رد: elgokr
  [سؤال] استعراض الداتا جريد فيو بين تاريخين الو0 3 197 16-04-18, 05:27 AM
آخر رد: الو0
  كيف يمكنني البحث في الجدول كامل DOX.1 0 133 11-03-18, 01:50 AM
آخر رد: DOX.1
  الحذف من الجدول الفارغ من البيانات عبد العزيز البسكري 17 183 07-02-18, 01:04 AM
آخر رد: سعود الشامان
  [مشروع] تطوير اداة Info Hashs لعرض معلومات Hashs سعود الشامان 1 102 30-01-18, 02:24 AM
آخر رد: سعود الشامان
  تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) Abdelazez.Ahmad 10 437 24-12-17, 01:58 AM
آخر رد: abohamad
  أريد عدد السجلات في الجدول بشرط معين ( بالوضع المنفصل ) Abdelazez.Ahmad 2 162 23-12-17, 09:58 PM
آخر رد: Abdelazez.Ahmad
  المساعدة في كود تصدير الجدول الي الاكسيل khaled12345 10 516 26-11-17, 05:50 PM
آخر رد: khaled12345

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


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