[ahmedgamal]

لو سمحتم انا عملت جملة insert into
وطلعتلي الرسالة دي
Data type mismatch in criteria expression
الكود
Dim cmd As New OleDbCommand("Insert Into Sales(sCode,sCustomer,sDile,sCash,sPostpone,sVisa,Bar,Items,iNum,sTG,sDis,sTS,sUser)values(@sCode,@sCustomer,@sDile,@sCash,@sPostpone,@sVisa,@Bar,@Items,@iNum,@sTG,@sDis,@sTS,@sUser)", connAccess2010)
        cmd.Parameters.Add("@sCode", OleDbType.Numeric).Value = Val(TextBox2.Text.Trim)
        cmd.Parameters.Add("@sCustomer", OleDbType.VarChar).Value = (Cn.Text)
        cmd.Parameters.Add("@sDile", OleDbType.VarChar).Value = (CheckBox5.Checked)
        cmd.Parameters.Add("@sCash", OleDbType.VarChar).Value = (CheckBox2.Checked)
        cmd.Parameters.Add("@sPostpone", OleDbType.VarChar).Value = (CheckBox1.Checked)
        cmd.Parameters.Add("@sVisa", OleDbType.VarChar).Value = (CheckBox3.Checked)
        cmd.Parameters.Add("@Bar", OleDbType.VarChar).Value = (TextBox9.Text)
        cmd.Parameters.Add("@Items", OleDbType.VarChar).Value = (TextBox3.Text)
        cmd.Parameters.Add("@iNum", OleDbType.Numeric).Value = Val(TextBox5.Text)
        cmd.Parameters.Add("@sTG", OleDbType.Numeric).Value = Val(TextBox4.Text)
        cmd.Parameters.Add("@sDis", OleDbType.Numeric).Value = Val(TextBox7.Text)
        cmd.Parameters.Add("@sTS", OleDbType.Numeric).Value = Val(TextBox8.Text)
        cmd.Parameters.Add("@sUser", OleDbType.Numeric).Value = Val(TextBox1.Text)
        connAccess2010.Open()
        cmd.ExecuteNonQuery()
        connAccess2010.Close()