[فراس الغزي]

السلام  عليكم  

  اخوتي  الاعزاء  

  انا قمت بكتابة  هذا الكود  وهو  للادخال  المنتجات  عن  طريق الباركود لكن  عند  الضغط  على انتر  يظهر  عندي  هذا الطا  اليكم  الكود  وكود الخطا  اتمنى  منكم المساعدة  اخوتي  

الكود  

كود :

 '=========== طريقة الادخال عن طريق الباركود ===========
        Dim BAR_ As Integer

        If TXT_BARCODE.Text <> Nothing Then
            Dim DT As New DataTable
            Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM ITEMS WHERE ITEM_BAR LIKE '" & TXT_BARCODE.Text & "'", SqlConn)
            DA.Fill(DT)
            If DT.Rows.Count > 0 Then
                '======= التحقق من رقم كود الصنف =========
                For I = 0 To DataGridView1.Rows.Count - 1
                    If DataGridView1.Rows(I).Cells(0).Value = DT.Rows(0).Item("ITEM_CODE") Then
                        DataGridView1.Rows(I).Cells(4).Value = DataGridView1.Rows(I).Cells(4).Value + 1
                        CALC()
                        TXT_BARCODE.Clear()
                        Exit Sub
                    End If

                Next
                '======= اضافة سجل للداتا جريد ===========
                DataGridView1.Rows.Add()
                BAR_ = DataGridView1.Rows.Count - 1
                DataGridView1(0, BAR_).Value = DT.Rows(0).Item("ITEM_CODE")
                DataGridView1(1, BAR_).Value = DT.Rows(0).Item("ITEM_NAME")
                DataGridView1(2, BAR_).Value = DT.Rows(0).Item("ITEM_UNIT")
                DataGridView1(3, BAR_).Value = DT.Rows(0).Item("ITEM_PRICE")
                DataGridView1(7, BAR_).Value = DT.Rows(0).Item("QTY")
                DataGridView1(8, BAR_).Value = DT.Rows(0).Item("ITEM_EXPIRE")

                DataGridView1(4, BAR_).Value = 1

                CALC()


            End If



        End If
        TXT_BARCODE.Clear()
        CALC()

ورسالة الخطا التي  تظهر  هذه  

كود :

additional information the connectionstring property has not been initialized. (system.data)

 انتظر  ارائكم  خول  المشكلة  وشكرا لكم  وفقكم الله

[Rabeea Qbaha]

على ما يبدو انت تستخدم class للاتصال بقاعده البيانات و اظن انك لم تستدعي الميثود الخاصه بالاتصار بال form الذي تقوم بادخال البيانات فيه 

[ابراهيم ايبو]

السلام عليكم اخي الكريم 
الرسالة تشير الى كلمة (system.data)
 هل استدعيت مكتبة SqlClient
قم باستدعائها هكذا في فضاء الاسماء 
System.Data.SqlClient;
وعند كتابة فئات الـ SQL لاتحتاج الى كتابة SqlClient قبلها
يعني SqlClient.Sqlconn تصبح هكذا Sqlconn وكذلك SqlClient.SqlDataAdapter تصبح SqlDataAdapter
في جملة الاستعلام بالباركود لذيك خطأ وهو عند الاستعلام لصنف معين بالباركود لانستخدم كلمة Like  التي تحتاج الى اشارة %
اجعل جملة الاستعلام هكذا

PHP كود :

("SELECT * FROM ITEMS WHERE ITEM_BAR ='" & TXT_BARCODE.Text & "'", Sqlconn) 


[فراس الغزي]

لا زالت مشكلة خطا في الاتصال ياريت لو في شخص عنده تيم فيور او اني دسك يدخل لحاسبتي ويشوف الخطا اخوتي الاعزاء انا محتاج مساعدتكم

[ابراهيم ايبو]

السلام عليكم اخي الكريم فراس
بخصوص كود الاتصال هل الكود بعمل مع فورم اخرى ؟
اعمل جملة Selectعامة لجدول ما لتتخقق من الاتصال
او اوقف التحمبل مع الاقلاع ثم قم بتنفيذ هذا الكود في Button لتتحقق من الاتصال اولا لحصر المشكلة

كود :

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       Try
           If SqlConn.State = ConnectionState.Open Then
               SqlConn.Close()
               MsgBox("الاتصال مغلق")
               SqlConn.Open()
               MsgBox("الاتصال مفتوح")
               SqlConn.Close()
           End If
           SqlConn.Close()
       Catch ex As Exception
       End Try
   End Sub

[اسامه الهرماوي]

إذا كنت تريد الإستعلام عن البيانات أكتب الكود التالي مع مراعاة تحويل oledb الي sql في الكود ومع العلم أن use1 هو اسم الجدول.

كود :

SQLstruse = "SELECT *  FROM use1 WHERE اسم_المستخدم = '" & t1.Text & "'"
       DataSetuse.Clear()
       Dim DataAdapterus As New OleDbDataAdapter(SQLstruse, conuse)
       DataAdapterus.Fill(DataSetuse, "use1")
       الموظف.DataBindings.Clear()
       الموظف.DataBindings.Add("Text", DataSetuse, "use1.اسم_الموظف")

       المستخدم.DataBindings.Add("Text", DataSetuse, "use1.اسم_المستخدم")
       المستخدم.DataBindings.Clear()
       المرور.DataBindings.Add("Text", DataSetuse, "use1.كلمة_المرور")
       المرور.DataBindings.Clear()

       a1.DataBindings.Add("Text", DataSetuse, "use1.إدارة_المخزن_والجرد")
       a1.DataBindings.Clear()
       a2.DataBindings.Add("Text", DataSetuse, "use1.إداة_الموظفين")
       a2.DataBindings.Clear()
       a3.DataBindings.Add("Text", DataSetuse, "use1.إجراء_عمليات_البيع")
       a3.DataBindings.Clear()

إن كان كذلك
واتس:+0201115740074