สอบถามเรื่อง การ edit update insert delete record ใน access เกิด error ครับ
มันมี Error แน่นอนครับ เพียงแต่ไม่โชว์ Error ฉะนั้นขั้นแรกให้มันแสดง Error ก่อนครับ
An error occurred on the server when processing the URL. Please contact the system administrator
Date :
2015-03-18 14:11:41
By :
mr.win
มันมี error ตรงนี้ครับ
Error
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/Drawing/20080913152337/AspAccessEditRecordSave.asp, line 19
code :
Code (ASP)
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "UPDATE customer SET "
strSQL = strSQL&"CustomerID = '"&Request.Form("txtCustomerID")&"' "
strSQL = strSQL&",Name = '"&Request.Form("txtName")&"' "
strSQL = strSQL&",Email = '"&Request.Form("txtEmail")&"' "
strSQL = strSQL&",CountryCode = '"&Request.Form("txtCountryCode")&"' "
strSQL = strSQL&",Budget = '"&Request.Form("txtBudget")&"' "
strSQL = strSQL&",Used = '"&Request.Form("txtUsed")&"' "
strSQL = strSQL&"WHERE CustomerID = '"&Request.QueryString("CusID")&"' "
Set objExec = Conn.Execute(strSQL) <<---มี error ตรงบรรทัดนี้ครับ
If Err.Number = 0 Then
Response.write("Save Done.")
Else
Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End IF
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>
แล้วต้องแก้ใขยังไงครับ พี่แอดมิน
Date :
2015-03-18 14:37:26
By :
admin_comcsi
ได้แล้วครับ เกี่ยวกับสิทธิ์การเข้าใช้งาน อย่างที่พี่แอดมินบอก ขอบคุณมากๆครับ
Date :
2015-03-18 15:49:16
By :
admin_comcsi
Date :
2015-03-19 09:43:24
By :
mr.win
Load balance : Server 03