|
 |
| |
ช่วยดู code ให้หน่อยไม่สามารถ update ข้อมูลที่เลือกได้ |
| |
 |
|
|
 |
 |
|
เรียน ผู้รู้ทั้งหลายเนื่องจากลองหัดเขียน code asp ให้ update ข้อมูลที่เราเลือกรหัส (ID) ของข้อมูลขึ้นมา แต่เมื่อ click ปุ่ม update แล้ว คำสั่งไป update ข้อมูลทั้งหมดไม่ได้ update ให้กับข้อมูลที่เราเลือก จะแก้ไขอย่างไรดี ส่วน code อยู่ข้างล่าง ขอบคุณล่วงหน้า
<%@Language=VBScript%>
<%
Option Explicit
Dim sqlstr
Dim strshipID, strCompany, strphone
Response.Buffer = True
strshipID = Request.Form("shipperID")
strCompany = Trim(Request.Form("Companyname"))
strphone = Trim(Request.Form("phone"))
'**ค้นหาเครื่องหมาย Singgle quote (') หนึ่งตัว และเพิ่มด้วยเครื่องหมาย Single quote (') อีกหนึ่งตัว รวมเป็น 2 ตัว
'**เพื่อให้สามารถบันทึกลงในฐานข้อมูลด้วย SQL Statement ได้อย่างถูกต้อง
Function doFixQuotes(strString)
doFixQuotes = Replace(strString,"'","''")
End Function
If strshipID <> "" and strcompany <> "" and strphone <> "" Then
strcompany = chr(39) & doFixQuotes(strcompany) & chr(39) & ","
strphone = chr(39) & doFixQuotes(strphone) & chr(39)
sqlstr = "Update Shippers "
sqlstr = sqlstr & "Set CompanyName = " & strcompany
sqlstr = sqlstr & "phone =" & strphone
sqlstr = sqlstr & " Where ShipperID =" & strshipID
Application("dbConnect1").Execute sqlstr
Response.Redirect "sql_update.asp"
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<title>ตัวอย่างการใช้ภาษา SQL ด้วยคำสั่ง Update (sql_updetail.asp)</title>
</head>
<body>
<center>
<h4>ตัวอย่างการใช้ภาษา SQL ด้วยคำสั่ง Update (sql_updetail.asp)</h4>
<p>
<form action="sql_updetail.asp" method=POST name=frmupdate>
<table boder=0 cellpadding=0 cellspacing=10 bgcolor=DodggerBlue>
<%
Dim rst, strsql, intship, i
intship = Request.QueryString("shipperID")
If intship = "" Then intship = 1
Set rst = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM SHIPPERS Where shipperID =" & intship
rst.Open strsql, Application("dbConnect1"), adOpenForwardOnly, adLockReadOnly, adCmdText
For i = 0 To rst.Fields.Count - 1
If i = 0 Then
%>
<tr>
<td><%=rst.Fields(i).Name%></td>
<td><input type="hidden" name="<%=rst.Fields(i).name%>" value="<%=rst.Fields(i).Name%>">
<%=rst.Fields(i)%></td>
</tr>
<%
Else
%>
<tr>
<td><%=rst.Fields(i).Name%></td>
<td>
<input type="text" size="30" name="<%=rst.Fields(i).Name%>" value="<%=rst.Fields(i)%>">
</td>
</tr>
<%
End If
Next
rst.Close
Set rst = Nothing
%>
<tr>
<td></td>
<td><input type="submit" value="Update">
<input type="reset" value="Cancel">
</td>
</tr>
</table>
</form>
<a href="sql_update.asp">กลับหน้าแรก</a>
</center>
</body>
</html>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
11 เม.ย. 2550 08:11:45 |
By :
มือใหม่หัดเขียน |
View :
1810 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
น่าจะต้องมีเครื่องหมาย ' ' ด้วยน่ะ
sqlstr = sqlstr & "Set CompanyName = '" & strcompany &"'"
|
| |
|
|
| |
| Date :
11 เม.ย. 2550 16:19:56 |
By :
ต้น |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 03
|
