帮忙看一下,哪里错了~~
Sub upd
Dim u_bianhao, u_qidian, u_zhongdian, u_chexing, u_checi, u_facheshijian, u_fangxiang, u_note
u_bianhao = Trim(Request.Form("u_bianhao"))
u_qidian = Trim(Request.Form("u_qidian"))
u_zhongdian = Trim(Request.Form("u_zhongdian"))
u_chexing = Trim(Request.Form("u_chexing"))
u_checi = Trim(Request.Form("u_checi"))
u_facheshijian = Trim(Request.Form("u_facheshijian"))
u_fangxiang = Trim(Request.Form("u_fangxiang"))
u_note = Trim(Request.Form("u_note"))
MM_editQuery = "UPDATE [checi] SET " & _
"bianhao = " & to_sql(u_bianhao,"number") & ", " & _
"qidian = " & to_sql(u_qidian,"text") & ", " & _
"zhongdian = " & to_sql(u_zhongdian,"text") & ", " & _
"chexing = " & to_sql(u_chexing,"text") & ", " & _
"checi = " & to_sql(u_checi,"text") & ", " & _
"facheshijian = " & to_sql(u_facheshijian,"text") & ", " & _
"fangxiang = " & to_sql(u_fangxiang,"number") & ", " & _
"note = " & to_sql(u_note,"text") & " WHERE " & _
"bianhao = " & to_sql(u_bianhao,"number") & ""
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_conn_STRING
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End sub