تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة بقواعد البيانات
#1
السلام عليكم

اود طلب المساعدة بخصوص كود يعرض كل ال columns لجدول معين فى data grid view بحيث يكون كل column فى row داخل ال data grid view

ارجو المساعدة و شكرا  Smile
الرد }}}
تم الشكر بواسطة:
#2
اذا تقصد عرض جدول بالاداة فاضبط مصدر البيانات الخاص بها على DataTable تعبئة من الجدول المطلوب.
الرد }}}
تم الشكر بواسطة:
#3
في جملة select فقط اختر *بدلا من اسماء الحقول في الجدول
الرد }}}
تم الشكر بواسطة:
#4
كود :
Dim str As String = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source=C:\Users\mohamed haroon\Desktop\db1.mdb;"

    Dim con As New OleDb.OleDbConnection(str)

dg.DataSource = Nothing
        dg.Rows.Clear()
        Dim d As New DataTable("infoma")
        Dim cm As New OleDb.OleDbCommand("", con)
        cm.Parameters.Clear()
        If con.State = ConnectionState.Closed Then con.Open()
       
        dg.ColumnCount = 2
        dg.Columns(0).Name = "details"
        dg.Columns(1).Name = "type"

        Dim name(d.Columns.Count) As String
        Dim i As Integer = 0
        For Each column As DataColumn In d.Columns
            name(i) = column.ColumnName
            i += 1
        Next



هذا هو قصدى لاكنى لا ادرى كيفية استخراج المصفوفة name فى data grid view
الرد }}}
تم الشكر بواسطة:
#5
انت عايز اسماء الاعمدة اللي تمثل اسماء الحقول
والا عايز القيم في السجلات ؟
dg.Columns(0).Name = "details"
dg.Columns(1).Name = "type"
هنا بيغير اسم الحقل أو العمود فقط الى details و type
يعني هيبان في الجريد اسم العمود details و type
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#6
شكرا لمشاركة الاخوة لقد وجدت هذا الكود و هو يعمل بنجاح Smile
كود :
provider = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source ="
       dataFile = "C:\Users\mohamed haroon\Desktop\db1.mdb"
       connString = provider & dataFile
       myConnection.ConnectionString = connString
       myConnection.Open()
       Try
           Dim Rest() As String = {Nothing, Nothing, "infoma", Nothing}
           Dim columns As String = "Columns"
           Dim dt As DataTable = myConnection.GetSchema(columns, Rest)
           For Each row As DataRow In dt.Rows
               dg.Rows.Add(row.Item("COLUMN_NAME").ToString)
           Next

           myConnection.Close()
       Catch ex As Exception
       End Try
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 96 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 80 29-02-24, 07:14 PM
آخر رد: asdfar1977
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1

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


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