[Mohamed M. Bedair]

السلام عليكم ورحمة الله وبركاته
لدي داتا جريد وفي وضع التصميم اضفت اليها 4 اعمدة
اريد عند تعبئة الداتا من قاعدة البيانات علي نفس الاعمدة

[حريف برمجة]

ارفع مثالك .. ليتم التعديل عليه

[أحمد النجار]

لو مثلا الجدول اسمه Table1
والحقول ID, Name, Address, Phone

اعمل الجملة كالتالي

كود :

dim cs as new New SqlConnection = "ضع جملة الاتصال بقاعدة البينات هنا"
Dim ds As New DataSet
    Dim sql As String = "Select * from table1"
   Dim da As New SqlDataAdapter(sql, cs)
da.fill(ds, "Table1")

for i as integer = 0 to Me.BindingContext(ds, "Table1").Count - 1

datagridview1.rows.add(new string() {Me.BindingContext(ds, "Table1").Current("ID"), Me.BindingContext(ds, "Table1").Current("Name"), Me.BindingContext(ds, "Table1").Current("Address"), Me.BindingContext(ds, "Table1").Current("Phone")}
Me.BindingContext(ds, "Table1").Position +=1
next

[Mohamed M. Bedair]

؛ أحمد ؛ كتب :datagridview1.rows.add(new string() {Me.BindingContext(ds, "Table1").Current("ID"), Me.BindingContext(ds, "Table1").Current("Name"), Me.BindingContext(ds, "Table1").Current("Address"), Me.BindingContext(ds, "Table1").Current("Phone")}

يوجد خطأ في نهاية الجملة عند الرمز {

[أحمد النجار]

اقفل القوس بعد نهاية الجملة

فقط ضع رمز إغلاق القوس ( بعد الرمز {

[محمود رغمان]

بارك الله فيك استاذ احمد
تظهر مشكلة فى حالة وجود حقول Null هل يوجد حل
بارك الله فيكم جميعاً

[أبوبكر سويدان]

فيديو يعرض كيفية تهيئة DataGridview وتعبئتها بالبيانات.
http://www.youtube.com/watch?v=e5LV7XoNS6U

لك تحية.

[سعود]

مشاركة لاخواني اقدم ابسط كلاس في هذا الشان

كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getdata()
    End Sub
    Sub getdata()
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb", con)
        ds.Clear()
        d.DataSource = Nothing


        da.Fill(ds, "tb")


        d.DataSource = ds
        d.DataMember = "tb"


        d.Columns(0).Width = 50
        d.Columns(1).Width = 200
        d.Columns(0).HeaderText = "ID"
        d.Columns(1).HeaderText = "Name"


    End Sub
End Class