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

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

اانا لسة مبتدى وكان فية مثال كنت بحاول اطبقة بس للاسف مش بيتم الاتصال وطبقتة بس قاعدة البيانات اللى المهندس المحترم هنا فى المنتدى مستخدمها sql server
وانا بستخدم قاعدة بيانات access 2007

بس فية مشكلة بتظهر الرسالة دى
Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE',

كود :

If e.KeyCode = Keys.Enter Then

        End If

        '  انشاء امر يحمل جملة اس كيو ال مع الاتصال  

        Dim cmd As New OleDbCommand(sqlstr, con)

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

        cmd.Parameters.AddWithValue("@Code", TextBox1.Text)

        'اضافة صف جديد الى دات قريد

        'اعلان عن متغير

        Dim newrow As h1DataSet.sellRow

        'اعطاء قيمة للصف الجديد

        newrow = H1DataSet.sell.NewRow

        H1DataSet.sell.Rows.Add(newrow)

        'فتح الاتصال

        con.Open()

        'الاعلان عن متغير لقراءة البيانات من قاعدة البيانات بناء على شرط

        Dim dr As OleDbDataReader

        'تنفيذ الاستعلام

        Dim cmd1 As New OleDbCommand(sqlstr, con)

        cmd = New OleDbCommand(sqlstr, con)

        dr = cmd.ExecuteReader

        'اظهار رسالة تفيذ عدم وجود الصنف في بطاقة الصنف

        If Not (dr.HasRows) Then

            MsgBox("هذا الصنف غير معرف في بطاقة الصنف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "خطأ ")

            Return

        End If

        'قراءة الاصناف

        While dr.Read

            newrow.ID = Me.SelMIDTextBox.Text

            newrow.code = dr.Item("Code")

            newrow.Name = dr.Item("NAME")

            newrow.price = dr.Item("Price")

            newrow.quant = Me.TextBox2.Text

            newrow.price = dr.Item("Price")

            'نعمل تحديث لقاعدة البيانات

            Me.Validate()

            Me.SellBindingSource.EndEdit()

            Me.TableAdapterManager.UpdateAll(Me.H1DataSet)

            Me.SellBindingSource.EndEdit()

            Me.SellTableAdapter.Update(Me.H1DataSet.sell)

            Me.SellTableAdapter.Fill(Me.H1DataSet.sell)

            Me.SellBindingSource.MoveLast()

            'اجراء عملية حسابية بين الكمية والسعر

            If Not IsDBNull(Me.SellDataGridView.CurrentRow.Cells(2).Value) And Not IsDBNull(Me.SellDataGridView.CurrentRow.Cells(4).Value) Then

                Me.SellDataGridView.CurrentRow.Cells(5).Value = CDec(Me.SellDataGridView.CurrentRow.Cells(2).Value * Me.SellDataGridView.CurrentRow.Cells(4).Value)

            End If

        End While

        'اغلاق الاتصال

        dr.Close()

        con.Close()

        'استدعاء دالة المجموع

        CalNet()

        TextBox1.Clear()

'SELECT', or 'UPDATE'.

ممكن حد يساعدنى فى حل المشكلة دى

ممكن مثال لطريقة استدعاء صنف عن طريق الكود واضافة البيانات فى textbox لتعديلها وياريت حد يرد عليا

قاعدة البيانات access 2007

[attachment=17561]

تفضل مثال صغير يوضح لك الامر

تحياتى

عاجز عن الشكر اخى الكريم بس للاسف المثال على فاجوال ستوديو 2013 وانا عندى 2008 مش بيفتح على الاصدار 2008

كود :

           Dim dt As New DataTable

            Dim da As New SqlClient.SqlDataAdapter

            dt.Clear()

            da = New SqlClient.SqlDataAdapter("select * from Items where State='true' and Item_Bar = '" & Txt_Bar1.Text & "'", SqlConn)

            da.Fill(dt)

            If dt.Rows.Count > 0 Then

                Txt_Name1.Text = dt.Rows(0).Item("Item_Name")

                Txt_Qty1.Text = dt.Rows(0).Item("Qty")

                Txt_Tklfa1.Text = dt.Rows(0).Item("Item_Tklfa")

                Txt_Price1.Text = dt.Rows(0).Item("Item_Price")

                Txt_Bar1.Text = dt.Rows(0).Item("Item_Bar")

                Item_Code1.Text = dt.Rows(0).Item("Item_Code")

                Txt_Bar2.Select()

            End If

مشكووورررررر

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

atef_020

atef_020

atef_020

mmali127

atef_020

ملهمـ

moniam