مشكلة في كود الإضافه إلى الأكسس

IT.COM كتب:

السلام عليكم

يظهر لي خطأ في عبارة insert into

مع العلم اني تأكدت من كتابة العباره اكثر من مره فماهي المشكله

هذا هو الكود

Try

Dim SavInto As New OleDb.OleDbCommand

SavInto.Connection = conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "INSERT INTO Sales(date,day,code,type,quntity,amount,total)" & _

"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox7.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "') "

conn.Open()

SavInto.ExecuteNonQuery()

da1.Update(ds1, "Sales")

conn.Close()

MsgBox("تمت الإضافة")

Catch ex As Exception

conn.Close()

MsgBox(Err.Description, MsgBoxStyle.Critical)

End Try

ما هي رسالة الخطأ

وعليكم السلام ورحمة الله وبركاته .. ,

الخطأ في أسماء الحقول date , day لأنهآ كلمات محجوزة ,

هذا الكود ,

Try

Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Sales(date1,day1,code,type,quntity,amount,total)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox7.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "') "
conn.Open()
SavInto.ExecuteNonQuery()
da1.Update(ds1, "Sales")
conn.Close()
MsgBox("تمت الإضافة")


Catch ex As Exception
conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try

بالتوفيق :happy: ,

يعطيك العافيه اختي اشراقه فجر لكن المشكله الحين تطلع معي مشكله ثانيه

update unable to find TableMapping ['Sales'] or Data Table 'Sales'

DOWNLOADER كتب:

ما هي رسالة الخطأ

يعطيك العافيه اخوي

ورسالة الخطأ كتبها

إشراقــه فجــر كتب:

وعليكم السلام ورحمة الله وبركاته .. ,

الخطأ في أسماء الحقول date , day لأنهآ كلمات محجوزة ,

هذا الكود ,

Try

Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Sales(date1,day1,code,type,quntity,amount,total)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox7.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "') "
conn.Open()
SavInto.ExecuteNonQuery()
da1.Update(ds1, "Sales")
conn.Close()
MsgBox("تمت الإضافة")


Catch ex As Exception
conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try

بالتوفيق :happy: ,

يعطيك العافيه اختي

الحين تطلع عندي مشكله

رسالة الخطأ

update unable to finde TableMapping['Sales'] or Data Table 'Sales'

أرفقي برنامجك و بعدل عليه ..