[أبو يزن]

السلام عليكم ورحمة الله وبركاته 


لا اعلم اين المشكلة في هذا الكود لأنه نفس الكود في فورم اخر وتم عرض بيانات الجدول ولكن في هذا الفورم استطيع عرض بيانات الجدول الاخر في الداتا قريد فيو 

حاولت اكثر من مرة ومسحت الكود واعدت كتابته نفس المشكلة مع العلم ان ملف القاعدة موجود في مجلد البرنامج ومتأكد من اسم الجدول 

PHP كود :

Imports System.Data.OleDb
Imports System.Data


Public Class frmitem

    Dim dt As Date = Date.Now()


    Dim CnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=storemng.accdb"

    Dim Conn As New OleDbConnection(CnString)
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As OleDbDataAdapter
    Dim CMD As New OleDbCommand
    Dim SQLstr As String = "SELECT * FROM products"
    

    Private Sub frmitem_Load(sender As Object, e As EventArgs) Handles MyBase.Load




        txtid.DataBindings.Add("text", DataSet1, "products.id")
        txtitemname.DataBindings.Add("text", DataSet1, "products.namep")
        ComboBox1.DataBindings.Add("text", DataSet1, "products.unitp")
        txtQ.DataBindings.Add("text", DataSet1, "products.nowp")
        txtnote.DataBindings.Add("text", DataSet1, "products.note")


        'الداتا قريد فيو

        Me.CenterToScreen()
        conn.Open()
        Dim daDataAdapter1 As New OleDbDataAdapter(SQLstr, conn)
        DataAdapter1.Fill(DataSet1, "products")
        conn.Close()
        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = "products"
        DataGridView1.Refresh() 


[raoe-041]

اخي الكريم غير جملة الاتصال الى .......

PHP كود :

("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\Dataset1_db.accdb") 


لعلها تنفع .......

و تاكد من 

 DataGridView1.DataSource =

و ما هو اسم قاعدة البيانات عندك ........

[سعود]

ضع اكواد ربط الادوات بعد ملء الدااتاست

[الوليد ☺]

السلام عليكم ورحمة الله

أعتقد الحل كما ذكره أخونا سعود - مسألة ترتيب العمليات

لا أدري لم استخدمت DataBindings طالما عملك بالكود وليس المعالج
هذه طريقة من هذا المنتدى بدون استخدام DataBindings وإن شاء الله تمام

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Dim CnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=storemng.accdb"

    Private Sub frmitem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try

            Using Conn As New OleDbConnection(CnString)
                Using da As New OleDbDataAdapter(" SELECT * FROM [products] ", Conn)
                    Dim dt As New DataTable
                    If da.Fill(dt) > 0 Then
                        Dim row As DataRow = dt.Rows(0)
                        Me.txtid.text = row("id")
                        Me.txtitemname.text = row("namep")
                        Me.ComboBox1.text = row("unitp")
                        Me.txtQ.text = row("nowp")
                        Me.txtnote.text = row("note")
                        Me.DataGridView1.DataSource = dt
                    End If
                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class 


[أبو يزن]

الله يسعدكم

ماقصـرتوا تم الحل واتضح ان المشكلة كانت في صياغة الأكود قمت بإعادة كتابتها بدقة وتمت ولله الحمد

اشكر لكم سعيكم للخير وجزاكم الله به خيرا