31-03-18, 12:49 AM
السلام عليكم ورحمة الله وبركاتة اخواتى المحترمين
اانا لسة مبتدى وكان فية مثال كنت بحاول اطبقة بس للاسف مش بيتم الاتصال وطبقتة بس قاعدة البيانات اللى المهندس المحترم هنا فى المنتدى مستخدمها sql server
وانا بستخدم قاعدة بيانات access 2007
بس فية مشكلة بتظهر الرسالة دى
Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE',
'SELECT', or 'UPDATE'.
اانا لسة مبتدى وكان فية مثال كنت بحاول اطبقة بس للاسف مش بيتم الاتصال وطبقتة بس قاعدة البيانات اللى المهندس المحترم هنا فى المنتدى مستخدمها 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()