用DW编写的插入记录的代码，不太看得懂，以下是错误…………

Microsoft JET Database Engine 错误 '80040e07'

标准表达式中数据类型不匹配。

115行…………

以下是代码：

----------------------------------------------------------------
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" '这里是108行

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute '这里是115行
MM_editCmd.ActiveConnection.Close

---------------------------------------------------------------

怀疑108行哪个地方有毛病，请大虾们帮忙解决…………

DW的代码看不懂，还是手写吧

手写太慢，没办法…………

MM_dbValues
找一下这变量是什么内容,应该是里面有数居类型和数据库不匹配的地方吧,
问题应是这句SQL语句:
insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")

以下是MM_dbvalues变量代码，看不明白…………


' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If

刚刚手写代码完了，可是出现了一个莫名其妙的问题…………

明明 我表单文本字段提交的有东西，可是页面老是出现错误“*****不能为空”，删掉前一个，后一个又出现…………

哎…………

这些G_title等在表单中对应名称都是一样的，连大小写都没有问题，可真是弄不明白…………

但是把以下验证去掉提交到数据库中还真的没有任何内容，真是不明白之至啊…………

不过此文件是被另外文件<!-include -->起来的，莫非与此有关，但是也不至于啊…………





<%'===========================验证表单内容是否合法(开始)===============================================
G_title=replace(trim(request.form("G_title")),"'","")
G_code=replace(trim(request.form("G_code")),"'","")
G_orderQ=replace(trim(request.form("G_orderQ")),"'","")
G_user=replace(trim(request.form("G_user")),"'","")
G_mob=replace(trim(request.form("G_mob")),"'","")
G_tel=replace(trim(request.form("G_tel")),"'","")
G_giftid=replace(trim(request.form("G_giftid")),"'","")
G_add=replace(trim(request.form("G_add")),"'","")
G_mail=replace(trim(request.form("G_mail")),"'","")

if G_title="" then
response.write "<SCRIPT language=JavaScript>alert('礼品名称不能为空');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if

if G_code="" then
response.write "<SCRIPT language=JavaScript>alert('产品编号不能为空');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if

if G_orderQ="" then
response.write "<SCRIPT language=JavaScript>alert('礼品数量不能为空');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if

if G_user="" then
response.write "<SCRIPT language=JavaScript>alert('预订者姓名不能为空');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if

if G_mob="" or G_giftid="" or G_mail="" or G_add="" or G_tel="" then
response.write "<SCRIPT language=JavaScript>alert('请确认您已经完全填写了表格中加了*号的项目，返回检查重新填写。');"
Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if

'=====================%>

[此贴子已经被作者于2006-9-1 10:33:47编辑过]

怎么没有人理我…………？

已经搞定，谢谢！