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

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

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

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

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() 

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

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 

الله يسعدكم

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أبو يزن

raoe-041

سعود

الوليد ☺

أبو يزن