Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,154

HOME > ASP > ASP Forum > บันทึกข้อมูลไม่ได้ทั้งที่ Code เหมือนกัน ? Response.flush Response.Buffer = TrueOn Error Resume Next Function SQLQuote(var)


 

บันทึกข้อมูลไม่ได้ทั้งที่ Code เหมือนกัน ? Response.flush Response.Buffer = TrueOn Error Resume Next Function SQLQuote(var)

 



Topic : 003649

Guest




<%
Response.flush
Response.Buffer = True
On Error Resume Next

Function SQLQuote(var)
If InStr(var, "'") <> 0 Then
var = Replace(var, "'", "''")
End If

SQLQuote = var
End Function

Function ConnectDB()
If Err.Number <> 0 Then
ConnectDB = True
Else
ConnectDB = False
End If
End Function

If ConnectDB = False Then

Dim MyDB
Dim MyDSN
Dim MySQL
Dim MyRS
Dim rowCount
Dim idm
Dim MCode
Dim Mh
Dim Yr
Dim Responsed
Dim Position
Dim Remark

Set MyDB = Server.CreateObject("ADODB.Connection")
MyDSN = "dsn=mysqlsample;uid=srathee;pwd=advantage;"
MyDB.open MyDSN
MySQL = "SELECT * FROM member Order by ID desc"
Set MyRs = MyDB.execute (MySQL)

idm = (MyRs("user"))
idn = (MyRs("pass"))

MyRS.Close
Set MyRS = Nothing
End If

user = idm+1
pass = idn+1

Response.write("user = " & idm & "<br>")
Response.write("pass = "& idn & "<br>")

If ConnectDB = False Then
AddTraining()
Public Function AddTraining()
MySQL = "Insert Into member ("
MySQL = MySQL & "user,"
MySQL = MySQL & "pass,"
MySQL = MySQL & ") "
MySQL = MySQL & "Values ("
MySQL = MySQL & "" & user & ","
MySQL = MySQL & "" & pass & ","
MySQL = MySQL & ");"
Set MyRS = MyDB.execute (MySQL)
End Function
End If

MyRS.Close
MyDB.Close
Set MyRS = Nothing
Set MyDB = Nothing
%>

ถ้า Check Error จะเจอ

System Error Occured !

Number : -2147217900
Description : [MySQL][ODBC 3.51 Driver][mysqld-4.0.1-alpha-nt]You have an error in your SQL syntax near ') Values (5,5,)' at line 1

และไม่บันทึกข้อมูลให้ด้วยแต่อีกอัน Code เหมือนกันแต่ไม่มี Error ทำไงดีครับช่วยหน่อย


*-------------------------- อันที่บันทึกได้----------------------------------------

<!--#Include File="../Connections/ProductionODBC.inc" -->
<%
Response.flush
Response.Buffer = True
On Error Resume Next

Function SQLQuote(var)
If InStr(var, "'") <> 0 Then
var = Replace(var, "'", "''")
End If

SQLQuote = var
End Function

Function ConnectDB()
If Err.Number <> 0 Then
ConnectDB = True
Else
ConnectDB = False
End If
End Function

If ConnectDB = False Then

Dim MyDB
Dim MyDSN
Dim MySQL
Dim MyRS
Dim rowCount
Dim idm
Dim MCode
Dim Mh
Dim Yr
Dim Responsed
Dim Position
Dim Remark

MySQL = "SELECT * FROM Monthplan Order by ID desc"
Set MyRs = MyDB.execute (MySQL)

idm = (MyRs("Mcode"))

MyRS.Close
Set MyRS = Nothing
End If

MCode = idm+1
Mh = Trim(Request.Form("Mh"))
Yr = Trim(Request.Form("Yr"))
Responsed = Trim(Request.Form("Responsed"))
Position = Trim(Request.Form("Position"))
Remark = Trim(Request.Form("Remark"))

If ConnectDB = False Then
AddTraining()
Public Function AddTraining()

MySQL = "Insert Into Monthplan ("
MySQL = MySQL & "Mcode,"
MySQL = MySQL & "Mh,"
MySQL = MySQL & "Yr,"
MySQL = MySQL & "Responsed,"
MySQL = MySQL & "Position,"
MySQL = MySQL & "Remark"
MySQL = MySQL & ") "
MySQL = MySQL & "Values ("
MySQL = MySQL & "" & Mcode & ","
MySQL = MySQL & "'" & SqlQuote(Mh) & "',"
MySQL = MySQL & "'" & SqlQuote(Yr) & "',"
MySQL = MySQL & "'" & SqlQuote(Responsed) & "',"
MySQL = MySQL & "'" & SqlQuote(Position) & "',"
MySQL = MySQL & "'" & SqlQuote(Remark) & "'"
MySQL = MySQL & ");"

Set MyRS = MyDB.execute (MySQL)

If Err <> 0 then
Response.write("<br><font face=MS Sans Serif color=red size=2>")
Response.write "System Error Occured ! " & " <br><br> "
Response.write "<u>Number</u> : " & err.number & "<br>"
Response.write "<u>Description</u> : " & err.description & "<br><br>"
Response.Write(MyMessage_HD) & " ! <br>"
Response.write("</font>")
Response.write("<font face=MS Sans Serif color=blue size=2>")
Response.Write(MyMessage_Conn) & "<br>"
Response.Write(MyMessage_Actor) & " < "
Response.Write(MySession) & " > <br>"
Response.Write("Body Shop Department Ext. 6110") & "<br><br>"
Response.write("</font>")
Response.write("<font face=MS Sans Serif color=red size=2>")
Response.Write("<u>Detail</u> : ") & "<br>"
Response.write("</font>")
Response.write("<font face=MS Sans Serif color=blue size=2>")
Response.Write("Data Fails or Connection Fails") & " <br> "
Response.Write(MyMessage_Detail) & "<br>"
Response.Write("Permissions Fails In Server") & " "
Response.Write(MySERVER_NAME) & " "
Response.Write(MySERVER_PROTOCOL) & " "
Response.Write(MyHTTP_CONNECTION) & " <br> "
Response.write("</font>")
Response.End
End If

MyRS.Close
MyDB.Close
Set MyRS = Nothing
Set MyDB = Nothing

End Function
End If

%>

<script>
var redirecturl="Production.asp"
var pausefor=0
function postaction(){
if (window.timer){
clearInterval(timer)
clearInterval(timer_2)
}
window.location=redirecturl
}
setTimeout("postaction()",pausefor*1000)
</script>

ใครช่วยแก้ปัญหาให้หน่อยครับระบบ Production Record เปลี่ยนจาก Access มาเป็น MySQL เลยเจอปัญหาใหญ่เลย.................


Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 17 เม.ย. 2548 09:16:02 By : M@C View : 2680 Reply : 5
 

 

No. 1



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



สถานะออฟไลน์


ผมคิดว่าถ้าใช้กับดาต้าเบสของมายเอสคิวแอล คุณควรจะเปลี่ยนชื่อตัวแปรไม่ให้เหมือนชื่อฟิลด์ในดาต้าเบส คิดว่าน่าจะแก้ไขได้นะครับ...ลองดูนะ






Date : 18 เม.ย. 2548 16:21:26 By : นายกระจอก
 


 

No. 2



โพสกระทู้ ( 73,826 )
บทความ ( 833 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Description : [MySQL][ODBC 3.51 Driver][mysqld-4.0.1-alpha-nt]You have an error in your SQL syntax near ') Values (5,5,)'

Sql Statement ผิดนะครับ
Date : 19 เม.ย. 2548 11:58:45 By : @W_IN
 

 

No. 3

Guest


ผมมีปัญหาเขียนภาษา asp บันทึกข้อมู,ใน access ไม่ได้ รันแล้วขึ้น เพจบอกว่า



dsn can not updat database or object is read - only


ผู้รู้ชี้ทางหลุดพ้นให้ด้วยครับ ลองมาหลายครั้งแล้วครับ
Date : 2011-01-20 19:45:23 By : บาร์
 


 

No. 4

Guest


ปรับ permission ดูครับ
Date : 2011-01-20 21:06:21 By : Akatsuki
 


 

No. 5

Guest


ไปที่ property ของ folder ที่เก็บไฟล์ access นะครับ

เลือก tab security แล้ว add user IUSR_ชื่อของเครื่องคอมพิวเตอร์นั้นๆ

แล้วก็ให้สิทธิ์ เขียนข้อมูลลงไป
Date : 2011-03-03 12:02:53 By : Aod47
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : บันทึกข้อมูลไม่ได้ทั้งที่ Code เหมือนกัน ? Response.flush Response.Buffer = TrueOn Error Resume Next Function SQLQuote(var)
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, vps | เช่า vps , รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
for Contact Us : [Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่