الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في كود الحفظ Syntax Error In Insert Into Statment

بدأه michaelll في 10 سبتمبر 2008 · 1 رد · 431 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا هو كود الحفظ في الداتا باس وانا مش عارف فين الغلطة

ارجوكم حد يدلني فين الغلة عاجلا من فضلكم

Try

Dim enrg As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =Angels.mdb"

Dim Conn As New OleDb.OleDbConnection(ConStr)

enrg.Connection = Conn

enrg.CommandType = CommandType.Text

enrg.CommandText = "INSERT INTO custumers (SCode,SName,SAdresse,Tel,Mobile,E-Mail,Notes) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

Conn.Open()

enrg.ExecuteNonQuery()

Conn.Close()

MsgBox("Data Saved Successfuly")

Me.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try
#2

Try

Dim enrg As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =Angels.mdb"

Dim Conn As New OleDb.OleDbConnection(ConStr)

enrg.Connection = Conn

enrg.CommandType = CommandType.Text

enrg.CommandText = "INSERT INTO custumers (SCode,SName,SAdresse,Tel,Mobile,E-Mail,Notes) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

Conn.Open()

enrg.ExecuteNonQuery()

Conn.Close()

MsgBox("Data Saved Successfuly")

Me.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

سوري يا جماعة هذا هو الكود المستخدم

مواضيع مشابهة