Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > ASP > ASP Forum > คำสั้ง replace แก้ปัญหา single quote (') ในฐาน access

คำสั้ง replace แก้ปัญหา single quote (') ในฐาน access

เริ่มหัวข้อใหม่

nuch

โพสกระทู้ ( 1 )
บทความ ( 0 )

รบกวนด้วยนะคะ พยายามมา 3 วัน 3 คืนแล้ว ยังไม่ work เลยค่ะ

จาก code ด้านล่าง ถ้าลองให้เปลี่ยนตัว z เป็น a อย่างนี้ work ค่ะ

test = Trim(Replace(Request.Form("name"),"z","a"))

แต่พอจะให้เปลี่ยน ' ไปเป็น " คือใช้

test = Trim(Replace(Request.Form("name"),"'","""))

จะปรากฏ

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression 'name='ทดสอบ'''.
/register/registerbackup.asp, line 15

****** ช่วยดูหน่อยนะคะว่ามีจุดต้องแก้ไขตรงไหน

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

ตย. code นี้เปลี่ยน จาก z ไปเป็น a แล้ว work ค่ะ

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "member","",""
sql ="Select * From name where name='"&Request.Form("name")&"'" ' ป้องกันชื่อซ้ำ
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
course = "สำรอง"
Dim test
test = Trim(Replace(Request.Form("name"),"z","a"))
if NOT(RS.EOF) then
response.write("<center><br><br><br><br>ขออภัย ! ชื่อนี้มีอยู่แล้ว")
Else
Rs.AddNew
Rs("name") = test
Rs("company") = Request.Form("company")
Rs("position") = Request.Form("position")
Rs("email1") = Request.Form("email1")
Rs("email2") = Request.Form("email2")
Rs("website") = Request.Form("website")
Rs("telno") = Request.Form("telno")
Rs("ext") = Request.Form("ext")
Rs("mobile") = Request.Form("mobile")
Rs("fax") = Request.Form("fax")
Rs("datecourse") = course
Rs("dateinput") = date()
Rs("timeinput") = time()
Rs.Update
Conn.Close
%>
<script language="javascript">
alert("ขอบคุณค่ะสำหรับการลงทะเบียนล่วงหน้า");
location.replace("\index.asp");
</script>
<%
End If
%>
</BODY>
</HTML>

Tag : - - - -

Date : 2009-08-13 17:14:40

By : chormail

View : 3199

Reply : 2

No. 1

Sek-Artdrinker

โพสกระทู้ ( 1,528 )
บทความ ( 1 )

มันตายตรง connection ไม่ใช่หรอครับ sql command น่าจะผิด ปริ้น ออกมาดูนะครับ

Date : 2009-08-13 19:12:07

By : Sek-Artdrinker

No. 2

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

แนะนำให้ทำการ Replace String ก่อนที่จะทำการ Input ลงใน Statement น่ะครับ

Code (ASP)

<%
	Function ReplaceQuote(strString)
		ReplaceQuote = Replace(strString,"'","''")
	End Function

	Dim strSQL
	strSQL = " INSERT INTO tb (Name,LastName) VALUES ('"&ReplaceQuote(strName)&"','"&ReplaceQuote(strLastName)&"') "
%>

Date : 2009-08-13 23:16:33

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : คำสั้ง replace แก้ปัญหา single quote (') ในฐาน access

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04