السلام عليكم و رحمة الله و بركاته
التحية و بعد .
لقد قمت بكتابة هذا الكود و لكن للأسف لم يفلح معي ... و لا أعرف السبب ... بالعلم أن لي معرفة بسيطة ببرمجة قواعد البيانات ..
و أرجو أن تجدوا لي المشكلة في هذا الكود لو سمحتم
Dim cmd As New OleDb.OleDbCommand
Dim Conn As New OleDbConnection(ConStr)
cmd.Connection = Conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "INSERT INTO Lap(Type,Cpu,Ram,Size,HD,BL,Wl,Cam,CaD,Quantity,Price,Info )" & _
"values ('" & addType.Text & "','" & addcpu.Text & "','" & addram.Text & "','" & addsize.Text & "','" & addharddrive.Text & "'," & addblutoothcheck.Checked & "," & addwirlesscheck.Checked & "," & addcamcheck.Checked & "," & addcarddrivecheck.Checked & ",'" & addQuantity.Text & "','" & AddPrice.Text & "','" & addInfo.Text & "') "
Conn.Open()
cmd.ExecuteNonQuery()
Conn.Close()
updatTheDataBase()
MsgBox("The Lap Has Successfully Been Added To The Database.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Done")