ASPエラー - Microsoft JETデータベースエンジンのエラー '80040e07'

Question

データベースに接続してデータを格納する登録フォームに問題があり、以下のエラーが表示されます。抽出条件式で

Microsoft Jetデータベースエンジンエラー '80040e07'

データ型の不一致。

/mus0280/coursework2/storefuncs.asp、ライン330

これは、コードsnipetあるデータ・タイプは、データベースとウェブサイト全体で同じであれば、私はチェックしています。

' Add New User to Database 
sqlString = "INSERT INTO users (" &_ 
    "user_username, " &_ 
    "user_password, " &_ 
    "user_email," &_ 
    "user_address, " &_ 
    "user_city," &_ 
    "user_postcode," &_ 
    "user_cardnumber, " &_ 
    "user_cardtype, " &_ 
    "user_cardexpiremonth," &_ 
    "user_cardexpireyear," &_ 
    "user_cardname," &_ 
    "user_HTML" &_ 
    ") VALUES (" &_ 
    " '" & fixQuotes(newusername) & "', " &_ 
    " '" & fixQuotes(newpassword) & "', " &_ 
    " '" & fixQuotes(email) & "', " &_ 
    " '" & fixQuotes(address) & "', " &_ 
    " '" & fixQuotes(city) & "', " &_ 
    " '" & fixQuotes(postcode) & "', " &_ 
    " '" & fixQuotes(cardnumber) & "', " &_ 
    " '" & cardtype & "', " &_ 
    " '" & cardexpiremonth & "', " &_ 
    " '" & cardexpireyear & "', " &_ 
    " '" & fixQuotes(cardname) & "', " &_ 
    " " & html & " " &_ 
    ")" 

Con.Execute sqlString 

- これは、我々はそれが最終的な結果だ見ることができるように330

Answer 1

' Try with include single Quote's before and After Html in values (

' Add New User to Database 
sqlString = "INSERT INTO users (" &_ 
    "user_username, " &_ 
    "user_password, " &_ 
    "user_email," &_ 
    "user_address, " &_ 
    "user_city," &_ 
    "user_postcode," &_ 
    "user_cardnumber, " &_ 
    "user_cardtype, " &_ 
    "user_cardexpiremonth," &_ 
    "user_cardexpireyear," &_ 
    "user_cardname," &_ 
    "user_HTML" &_ 
    ") VALUES (" &_ 
    " '" & fixQuotes(newusername) & "', " &_ 
    " '" & fixQuotes(newpassword) & "', " &_ 
    " '" & fixQuotes(email) & "', " &_ 
    " '" & fixQuotes(address) & "', " &_ 
    " '" & fixQuotes(city) & "', " &_ 
    " '" & fixQuotes(postcode) & "', " &_ 
    " '" & fixQuotes(cardnumber) & "', " &_ 
    " '" & cardtype & "', " &_ 
    " '" & cardexpiremonth & "', " &_ 
    " '" & cardexpireyear & "', " &_ 
    " '" & fixQuotes(cardname) & "', " &_ 
    " '" & html & "' " &_ 
    ")" 

Con.Execute sqlString