|
 |
| |
ช่วยตรวจสอบ Error ให้หน่อยครับ ไม่ทราบว่าต้องแก้อย่างไร เพราะผม Copy มาจากในเว็บแล้วก็มา Edit เอาอีก |
| |
 |
|
|
 |
 |
|
ช่วยตรวจสอบ Error ให้หน่อยครับ ไม่ทราบว่าต้องแก้อย่างไร เพราะผม Copy มาจากในเว็บแล้วก็มา Edit เอาอีกที
ไม่รู้จะแก้อย่างไรต่อแล้วครับ หาใน Google ก็ไม่มี...รึป่าว
Error ครับ เป็น Ajax Edit/Update ครับ
***************************
Technical Information (for support personnel)
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[ODBC Firebird Driver][Firebird]Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 34 YEART
*********
อันนี้เป็น Code หน้าที่ Error ครับ
<%
Dim strMode
strMode = Request.Form("tMode")
Dim Conn,strSQL,objExec,objRec
set Conn=server.createobject("adodb.connection")
Conn.Open "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey; DbName=C:\SeniorSoftPro5\FBSENIOR.FDB;"
If strMode = "UPDATE" Then
strSQL = "UPDATE TARGET SET "
strSQL = strSQL&"MONTHID = '"&Request.Form("MONTHID")&"' "
strSQL = strSQL&"YEART = '"&Request.Form("YEART")&"' "
strSQL = strSQL&"SP4 = '"&Request.Form("SP4")&"' "
strSQL = strSQL&"EP2 = '"&Request.Form("EP2")&"' "
strSQL = strSQL&"EP5 = '"&Request.Form("EP5")&"' "
strSQL = strSQL&"CCL = '"&Request.Form("CCL")&"' "
strSQL = strSQL&"CLP = '"&Request.Form("CLP")&"' "
strSQL = strSQL&"IST = '"&Request.Form("IST")&"' "
strSQL = strSQL&"PKA = '"&Request.Form("PKA")&"' "
strSQL = strSQL&"SMA = '"&Request.Form("SMA")&"' "
strSQL = strSQL&"JCL = '"&Request.Form("JCL")&"' "
strSQL = strSQL&"CPY = '"&Request.Form("CPY")&"' "
strSQL = strSQL&"CPK = '"&Request.Form("CPK")&"' "
strSQL = strSQL&"WHERE NOID = '"&Request.Form("NOID")&"' "
Set objExec = Conn.execute(strSQL)
End IF
strSQL = "SELECT * FROM TARGET order by NOID desc "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
%>
<table width="1019" align="center" style="border: 2px dotted #FF6600; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px" >
<tr>
<th width="49" bgcolor="#9999CC"> <div align="center">ลำดับ</div></th>
<th width="49" bgcolor="#9999CC"> <div align="center">เดือน</div></th>
<th width="45" bgcolor="#9999CC"> <div align="center">ปี</div></th>
<th width="60" bgcolor="#9999CC">SP4</th>
<th width="64" bgcolor="#9999CC">EP2</th>
<th width="69" bgcolor="#9999CC">EP5</th>
<th width="65" bgcolor="#9999CC">CCL</th>
<th width="72" bgcolor="#9999CC">CLP</th>
<th width="73" bgcolor="#9999CC">IST</th>
<th width="75" bgcolor="#9999CC">PKA</th>
<th width="72" bgcolor="#9999CC"> <div align="center">SMA</div></th>
<th width="67" bgcolor="#9999CC"> <div align="center">JCL</div></th>
<th width="66" bgcolor="#9999CC"> <div align="center">CPY</div></th>
<th width="66" bgcolor="#9999CC">CPK</th>
<th width="100" bgcolor="#99FF66"> <div align="center">EDIT</div></th>
</tr>
<%
While Not objRec.EOF
%>
<tr>
<td><div align="center"><strong><%=objRec.Fields("NOID").Value%></strong></div></td>
<td><div align="center"><strong><%=objRec.Fields("MONTHID").Value%></strong></div></td>
<td><div align="center"><strong><%=objRec.Fields("YEART").Value%></strong></div></td>
<td><div align="right"><%=objRec.Fields("SP4").Value%></div></td>
<td><div align="right"><%=objRec.Fields("EP2").Value%></div></td>
<td><div align="right"><%=objRec.Fields("EP5").Value%></div></td>
<td><div align="right"><%=objRec.Fields("CCL").Value%></div></td>
<td><div align="right"><%=objRec.Fields("CLP").Value%></div></td>
<td><div align="right"><%=objRec.Fields("IST").Value%></div></td>
<td><div align="right"><%=objRec.Fields("PKA").Value%></div></td>
<td><div align="right"><%=objRec.Fields("SMA").Value%></div></td>
<td><div align="right"><%=objRec.Fields("JCL").Value%></div></td>
<td><div align="right"><%=objRec.Fields("CPY").Value%></div></td>
<td align="center"><div align="right"><%=objRec.Fields("CPK").Value%></div></td>
<td align="center"><a href="JavaScript:ShowEdit('<%=objRec.Fields("NOID").Value%>','<%=objRec.Fields("MONTHID").Value%>','<%=objRec.Fields("YEART").Value%>','<%=objRec.Fields("SP4").Value%>','<%=objRec.Fields("EP2").Value%>','<%=objRec.Fields("EP5").Value%>','<%=objRec.Fields("CCL").Value%>','<%=objRec.Fields("CLP").Value%>','<%=objRec.Fields("IST").Value%>','<%=objRec.Fields("PKA").Value%>','<%=objRec.Fields("SMA").Value%>','<%=objRec.Fields("JCL").Value%>','<%=objRec.Fields("CPY").Value%>','<%=objRec.Fields("CPK").Value%>')"><img src="images/text_edit.jpg" width="30" height="30" /></a></td>
</tr>
<%
objRec.MoveNext
Wend
%>
</table>
<%
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
รบกวนด้วยครับ
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-07-02 11:00:50 |
By :
noom |
View :
1612 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ที่คำสั่ง strSQL = "UPDATE TARGET SET "
strSQL = strSQL&"MONTHID = '"&Request.Form("MONTHID")&"', "
strSQL = strSQL&"YEART = '"&Request.Form("YEART")&"', "
strSQL = strSQL&"SP4 = '"&Request.Form("SP4")&"', "
strSQL = strSQL&"EP2 = '"&Request.Form("EP2")&"', "
strSQL = strSQL&"EP5 = '"&Request.Form("EP5")&"', "
strSQL = strSQL&"CCL = '"&Request.Form("CCL")&"', "
strSQL = strSQL&"CLP = '"&Request.Form("CLP")&"', "
strSQL = strSQL&"IST = '"&Request.Form("IST")&"', "
strSQL = strSQL&"PKA = '"&Request.Form("PKA")&"', "
strSQL = strSQL&"SMA = '"&Request.Form("SMA")&"', "
strSQL = strSQL&"JCL = '"&Request.Form("JCL")&"', "
strSQL = strSQL&"CPY = '"&Request.Form("CPY")&"', "
strSQL = strSQL&"CPK = '"&Request.Form("CPK")&"', "
strSQL = strSQL&"WHERE NOID = '"&Request.Form("NOID")&"' "
เปลี่ยนเป็นแบบนี้น่าจะถูกนะ ลองดู
|
| |
|
|
| |
| Date :
2010-08-09 17:49:51 |
By :
pooklook |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
strSQL = strSQL&"CPK = '"&Request.Form("CPK")&"', "
Rep ข้างบนเพลินไปหน่อย 
|
| |
|
|
| |
| Date :
2010-08-09 19:37:25 |
By :
PlaKriM |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 01
|
