ارفع مثالك .. ليتم التعديل عليه
لو مثلا الجدول اسمه 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
؛ أحمد ؛ كتب :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 هل يوجد حل
بارك الله فيكم جميعاً
مشاركة لاخواني اقدم ابسط كلاس في هذا الشان
كود :
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