เรื่อง edit update ครับ ... [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 4.
ช่วยแนะนำหน่อยครับ ต้องการให้แก้ไขข้อมูลแล้วข้อมูลไปupdate ทับข้อมูลเก่า Code (ASP) <%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db_chair.mdb"),"" , ""
strSQL = "UPDATE MAINTABLE SET "
strSQL = strSQL&"KEYID = '"&Request.Form("txtKEYID")&"' "
strSQL = strSQL&",CODE = '"&Request.Form("txtCODE")&"' "
strSQL = strSQL&",CLEVEL = '"&Request.Form("txtCLEVEL")&"' "
strSQL = strSQL&",SUPPLYCODE = '"&Request.Form("txtSUPPLYCODE")&"' "
strSQL = strSQL&",QUANTITY = '"&Request.Form("txtQUANTITY")&"' "
strSQL = strSQL&",PRICE = '"&Request.Form("txtPRICE")&"' "
strSQL = strSQL&",ID = '"&Request.Form("txtID")&"' "
strSQL = strSQL&",USERNAME = '"&Request.Form("txtUSERNAME")&"' "
strSQL = strSQL&",USESTATUS = '"&Request.Form("txtUSESTATUS")&"' "
strSQL = strSQL&",REMARK = '"&Request.Form("txtREMARK")&"' "
strSQL = strSQL&",COORDINATOR = '"&Request.Form("txtCOORDINATOR")&"' "
strSQL = strSQL&",TELEPHONE = '"&Request.Form("txtTELEPHONE")&"' "
strSQL = strSQL&",CHIEFCODE = '"&Request.Form("txtCHIEFCODE")&"' "
strSQL = strSQL&",DEPARTMENTCODE = '"&Request.Form("txtDEPARTMENTCODE")&"' "
strSQL = strSQL&",DIVISIONCODE = '"&Request.Form("txtDIVISIONCODE")&"' "
strSQL = strSQL&",SECTIONCODE = '"&Request.Form("txtSECTIONCODE")&"' "
strSQL = strSQL&",BUILDING = '"&Request.Form("txtBUILDING")&"' "
strSQL = strSQL&",FLOOR = '"&Request.Form("txtFLOOR")&"' "
strSQL = strSQL&",ROOM = '"&Request.Form("txtROOM")&"' "
strSQL = strSQL&",INSERTDATE = '"&Request.Form("txtINSERTDATE")&"' "
strSQL = strSQL&",DELETEDATE = '"&Request.Form("txtDELETEDATE")&"' "
strSQL = strSQL&",TRANFERDATE = '"&Request.Form("txtTRANFERDATE")&"' "
strSQL = strSQL&"WHERE KEYID = '"&Request.QueryString("CusID")&"' "
Set objExec = Conn.Execute(strSQL)
If Err.Number = 0 Then
Response.write("บันทึกเรียบร้อยแล้วค่ะ")
Else
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End IF
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%
Tag
Date :
2010-01-28 09:13:43By :
spaceView :
2049Reply :
6
ตรวจสอบชื่อฟิวด์ให้ถูกต้องด้วยน่ะครับ
Date :
2010-01-28 09:34:38By :
webmaster
มันเกิดจาก "strSQL =" แหละ ทำไมไม่เชื่อม string ครับ
Date :
2010-01-28 09:36:37By :
tungman
ลักษณะเหมือนจะมีปัญหาตั้งกะตรงนี้แล้วนะ จาก error message มันบอกว่าต้องมี parameter = 4Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db_chair.mdb"),"" , ""
strSQL = strSQL&"KEYID = '"&Request.Form("txtKEYID")&"' "
Thaicreate link นี้ ลองเปลี่ยนใช้แบบนี้ดูครับSet Conn = Server.Createobject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("database.mdb"),"user" , "password"
Date :
2010-01-28 10:16:30By :
salapao_codeman
ลอง ตรวจสอบชื่อฟิวด์ ตามคุณ win แล้วครับ
Date :
2010-01-28 13:23:48By :
space
KEYID เป็น index แบบ increment หรือ แบบ autonumber หรือเปล่าครับ
Date :
2010-01-28 13:42:07By :
tungman
ขอบคุณทุกท่านครับ
Date :
2010-01-28 14:38:42By :
space
Server 01
Load balance : Server 01
