[atef_020]

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

اانا لسة مبتدى وكان فية مثال كنت بحاول اطبقة بس للاسف مش بيتم الاتصال وطبقتة بس قاعدة البيانات اللى المهندس المحترم هنا فى المنتدى مستخدمها 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'.

[atef_020]

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

[atef_020]

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

---

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

[mmali127]

  TEST.rar (الحجم : 162.32 ك ب / التحميلات : 186)

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

تحياتى

[atef_020]

عاجز عن الشكر اخى الكريم بس للاسف المثال على فاجوال ستوديو 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

[moniam]

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