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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [VB.NET] أسرع طريقة للتحقق من هل الجدول فارغ sniperjawadino 7 333 17-02-19, 02:59 PM
آخر رد: sniperjawadino
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 145 21-01-19, 06:49 PM
آخر رد: dubai.eig
  تبدل معلومات قاعدة البيانات SonBasel 4 197 03-01-19, 12:16 AM
آخر رد: عبدالله الصافي
  عرض معلومات ف DatagridView Emam emam 9 439 02-01-19, 03:47 PM
آخر رد: new_programer
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 15 549 29-12-18, 02:03 AM
آخر رد: a.wagdi
  نسخ معلومات من داتا تيبل الى داتا تيبل ثانيه SonBasel 0 131 27-12-18, 04:27 PM
آخر رد: SonBasel
  [VB.NET] استفسار :- كيف اسحب معلومات من موقع الكتروني dubai.eig 2 226 30-11-18, 03:12 PM
آخر رد: XBOOBX
  كيف لي أن أجعل المستخدم يعدل في خلية واحدة فقط في الجدول mohammadsaeed01 4 228 27-11-18, 05:41 AM
آخر رد: mero5000
  اظهار معلومات اكثر من جدول في crystal Report Rabeea Qbaha 10 401 26-11-18, 02:31 AM
آخر رد: elgokr
  كيف اجعل visual basic يعمل مقارنة متغير مع عناطر الجدول MKSaeed 3 249 08-11-18, 12:27 PM
آخر رد: elgokr

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


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