ช่วยดูโค้ดลูป insert ลง Database ให้หน่อยค่ะ Microsoft OLE DB Provider for SQL Server error '80040e57' String or binary data would be truncated
Code (ASP) """""""โค้ดหน้า Preview""""""""""
<input type="hidden" name="sroom" Value="<%=Request.Form("s_room")%>">
<%
fac = 1
For Each sRoom in Request.Form("s_room")
Set ObjRS_room = Server.CreateObject("ADODB.Recordset")
rSql = "select * from MASTER_ROOM where room_id= '" & sRoom & "'"
ObjRS_room.Open rSql, ObjConn, 3, 1
If ObjRS_room("room_fac")<>fac then
Response.Write " " & ObjRS_room("room_fac") & " : ห้อง " & ObjRS_room("room_name")
Else
Response.Write " , " & ObjRS_room("room_name")
End if
fac = ObjRS_room("room_fac")
Next
%>
Code (ASP) For Each Room in Request.Form("sRoom")
Response.write ("เช็คค่าในลูป" &Room)
rSql = ""
rSql = rSql & "Insert into ORDER_ROOM "
rSql = rSql & "Values ( '" & sReserveId& "' "
rSql = rSql & " , '" & Room & "' "
rSql = rSql & " , getdate() "
rSql = rSql & " , 'TEST' ) "
ObjConn.execute rSql
Next
Code เลขที่ใบจอง201002073
Tag
Date :
2010-02-09 16:05:36By :
newjamView :
3849Reply :
39
ยังไม่ต้อง insert
Date :
2010-02-09 17:57:47By :
tungman
ก่อน insert ลอง response ออกมาแล้วนะคะ
Date :
2010-02-10 08:07:17By :
newjam
ช่วย write ทั้ง command ได้ไหม ผมอยากดู
Date :
2010-02-10 09:04:55By :
tungman
Insert into RESERVATION Values ( '201002159' , getdate() , '201002' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '' , NULL , getdate() , NULL )
Date :
2010-02-10 10:02:57By :
newjam
Insert into RESERVE_ROOM Values ( '201002216' , '007, 008' , getdate() , 'TEST' ) sql --Insert into RESERVE_ROOM Values ( '201002216' , '007, 008' , getdate() , 'TEST' )
Date :
2010-02-10 11:03:01By :
newjam
ขออภัยค่ะ ที่ตอบกลับโดยไม่ได้อ่านที่พี่คอมเมนท์กลับมา..พอดีอันนั้น response ทั้ง rsql
Date :
2010-02-10 11:07:32By :
newjam
อืมๆ นั่นคงเป็นที่ error แหละCode (VB.NET) rSql = "Insert into ORDER_ROOM "
rSql = rSql & "Values ( '" & sReserveId& "' "
rSql = rSql & " , '" & Room & "' "
rSql = rSql & " , getdate() "
rSql = rSql & " , 'TEST' ) "
Date :
2010-02-10 11:16:30By :
tungman
// โค้ดค่ะ
Date :
2010-02-10 11:34:52By :
newjam
RESERVE_ROOM เป็นชื่อของ table ที่จะ insert หรือเปล่า
Date :
2010-02-10 11:39:04By :
tungman
เป็นชื่อ tbl ในส่วนของรายการห้องค่ะ แก้ไขให้เป็น order_room แล้วค่ะ
Date :
2010-02-10 13:29:55By :
newjam
ลอง hard code value ใน sql command ดูครับว่าได้หรือเปล่า
Date :
2010-02-10 13:42:25By :
tungman
Insert into ORDER_ROOM (Reserve_ID,Room_ID,Update_date,Update_by)
Date :
2010-02-10 14:25:59By :
newjam
อ้างอิงจากอันนี้Code Insert into ORDER_ROOM (Reserve_ID,Room_ID,Update_date,Update_by)
Code rSql = "Insert into ORDER_ROOM Values ('" & sReserveId & "', '" &srRoom & "', getdate() ,'TEST') "
Code rSql = "Insert into [ORDER_ROOM] ([Reserve_ID], [Room_ID], [Update_date], [Update_by]) Values (" & sReserveId & ", '" &srRoom & "', getdate(), 'TEST') "
Date :
2010-02-10 15:01:47By :
tungman
เลขที่ใบจอง201002278
Date :
2010-02-10 15:25:23By :
newjam
อีกประเด็นนึงที่ไม่เข้าใจค่ะว่า
Date :
2010-02-10 15:37:35By :
newjam
Code (ASP) Dim BookedRooms
Dim SplitRooms, i
BookedRooms = Replace(Request.Form("abroom"), " ", "") 'ลบ space ออก
SplitRooms = Split(BookedRooms, ",") 'แยกเลขห้องที่จองออกมาใส่ใน array
For i = 0 To UBound(SplitRooms)
rSql = "Insert into [ORDER_ROOM] ([Reserve_ID], [Room_ID], [Update_date], [Update_by]) " &_
"Values (" & sReserveId & ", '" & SplitRooms(i) & "', getdate(), 'TEST')"
ObjConn.execute rSql
Next
Date :
2010-02-10 15:39:43By :
tungman
ขอบคุณนะคะที่ช่วยดูโค้ดให้อย่างต่อเนื่อง ^_^
Date :
2010-02-10 16:15:12By :
newjam
เอาอย่างนี้แล้วกัน--> preview --> save--> ถ้าอ้างอิงจากชื่อ control นั้นยังสามารถใช้ for each ได้อยู่ --> พอส่งมาถึงตรงนี้มันกลายเป้น string เส้นเดียวแล้ว จะใช้ต้อง split ลูกเดียว
Date :
2010-02-10 16:22:01By :
tungman
อื้มม ได้แล้วค่ะ "ศรัทธาอย่างล้นเหลือ" ขอบคุณมากค่ะ Thanks again krabbb ^_^
Date :
2010-02-10 16:30:34By :
newjam
พี่คะ อย่าพึ่งรำคาญนะคะ คือพอดีมันมีส่วนเพิ่มเติมที่ยังไม่เข้าใจเรื่อง Split อยู่น่ะค่ะ
Date :
2010-02-11 09:14:18By :
newjam
ASP/VBScript Split()
Date :
2010-02-11 10:03:17By :
tungman
ขอบคุณค่ะ...
Date :
2010-02-11 10:49:52By :
newjam
ก็ write --> "qtyaudio" & checkaudio ออกมาดูว่าตรงกับชื่อ control ที่อ้างอิงหรือเปล่าสิครับCode (ASP) ' CheckBoxIndex อาจเป็น 1, 2, 3, 4 ก็ได้
If Request.Form("Cb" & CheckBoxIndex) = "on" Then
'Do something here.
End If
Date :
2010-02-11 11:05:22By :
tungman
ได้แล้วค่ะ ^_^ มันต้องเอาค่า Hidden มาวางไว้ข้างในลูปที่แสดงค่ายืมอุปกรณ์
Date :
2010-02-11 11:06:39By :
newjam
ก็ split ด้วย "," สิ
Date :
2010-02-11 11:39:07By :
tungman
ไม่เข้าใจอ่ะค่ะ...
Date :
2010-02-11 12:01:32By :
newjam
ไม่รำคาญหรอก แต่อยากให้ลองแก้เอง อันไหนเห็นว่ายากไปจะช่วยบอกให้ แต่อันไหนเห็นว่าน่าจะทำได้ก็จะให้ลองทำเองดู
Date :
2010-02-11 12:39:42By :
tungman
Dim audioloop,qtyloop
Date :
2010-02-11 14:36:10By :
newjam
For a = 0 To UBound(splitaudio) - 1
Date :
2010-02-11 14:46:17By :
tungman
ใส่ตรง For เหมือนที่พี่บอกก็ไม่ได้ค่ะ
Date :
2010-02-11 14:55:44By :
newjam
แก้ตามนี้แล้ว เอามาให้ดูหน่อย เอามาทั้ง error นั่นแหละCode (VB.NET) Dim audioloop,qtyloop
Dim splitaudio,spliqty,a
audioloop = Replace(Request.Form("saudio"), " ", "")
splitaudio = Split(audioloop, ",")
qtyloop = Replace(Request.Form("sqtyaudio"), " ", "")
spliqty = Split(qtyloop, ",")
For a = 0 To UBound(splitaudio)
rSql = ""
rSql = rSql & " Insert into ORDER_EQUIPMENT "
rSql = rSql & "Values ( '" & sReserveId& "' "
rSql = rSql & " , '" & splitaudio(a) & "' "
rSql = rSql & " , '" & spliqty(a) & "' "
rSql = rSql & " , getdate() "
rSql = rSql & " , 'TEST' ) "
'ObjConn.execute rSql
Response.Write rSql & "<br />"
Next
ASP Split()
Date :
2010-02-11 15:08:20By :
tungman
Insert into ORDER_EQUIPMENT Values ( '201002078' , '001' , '5' , getdate() , 'TEST' )
Date :
2010-02-11 15:25:40By :
newjam
Code (VB.NET) Dim audioloop,qtyloop
Dim splitaudio,spliqty,a
audioloop = Replace(Request.Form("saudio"), " ", "")
splitaudio = Split(audioloop, ",")
qtyloop = Replace(Request.Form("sqtyaudio"), " ", "")
spliqty = Split(qtyloop, ",")
For a = 0 To UBound(splitaudio)
rSql = ""
rSql = rSql & " Insert into ORDER_EQUIPMENT "
rSql = rSql & "Values ( '" & sReserveId& "' "
rSql = rSql & " , '" & splitaudio(a) & "' "
If a < UBound(spliqty) 'อันนี้ลองดูเอานะ ไม่รู้ว่าจะ < หรือ <= ดี
rSql = rSql & " , '" & spliqty(a) & "' "
End If
rSql = rSql & " , getdate() "
rSql = rSql & " , 'TEST' ) "
ObjConn.execute rSql
Next
Date :
2010-02-11 15:32:57By :
tungman
ขอบคุณค่ะ..ได้แล้วค่ะ
Date :
2010-02-11 15:56:33By :
newjam
พี่พอจะเคยใช้ปุ่ม back บ้างมั๊ยคะ เวลาที่ preview ดูแล้ว และเค้าจะย้อนกลับไปแก้ไขน่ะค่ะ
Date :
2010-02-11 16:29:21By :
newjam
ขอบคุณด้วยคนนะค่ะ
Date :
2010-02-14 23:15:19By :
nuchplus
Code (ASP) <html>
<header><title> Cms </title></header>
<body>
<meta http-equiv="Content-Type" content="text/html; charset=TIS-620" />
คืออย่ากจะให้ดูให้หน่อยค่ะทำไมถึงไม่สามารถแก้ไขข้อมูลลงในฐานข้อมูลนะค่ะคือมันไม่แสดงข้อความออกมานะค่ะ
<?php
ob_start();
echo "<body bgcolor=#CC9900>
<table width=700 height=480 border=0>
<tr>
<td height=119 colspan=2 bgcolor=#006600><h1><center>
<font color=#FFFFFF>ผู้ดูแลระบบ</font></center></h1><br></td>
</tr>
<td width=1007 bgcolor=#FFFFFF>";
session_start();
if (($user=="root") && ($password=="1234"))
if(!$send)
?>
<form action="<?php $_PHP_SELF ?>" method="POST">
<input type=hidden name=code value=$room_id>
ประเภทห้อง: <input type=text name=type value=$room_type><br>
ขนาดห้อง: <input type=text name=size value=$room_size><br>
ราคา/วัน: <input type=text name=priceday value=$priceperday><br>
ราคา/เดือน: <input type=text name=pricemonth value=$pricepermonth><br>
รูปภาพ: <input type=file name=picture><br>
<input type=submit value=ตกลง name=send>
<input type=reset value=ยกเลิก name=cancel>
</form>
<?
{
$path_pic="http://localhost/cms/images/";
if ($picture != none)
if($_FILES['picture'])
{
$image = $_FILES["picture"]["name"];
$tmp = $_FILES["picture"]["tmp_name"];
if ($picture=copy($_FILES["picture"]["tmp_name"],"$path_pic/".$_FILES["picture"]["name"]))
if (copy($tmp,$path_pic."/".$image))
$image = $_FILES["picture"]["name"];
$link = mysql_connect("localhost","root","1234");
mysql_query("Use room;");
mysql_query("set NAMES tis620");
$sql = "Update room_data Set room_type = '$type', room_size = '$size', priceperday = '$priceday', pricepermonth = '$pricemonth',
picture = ' $image' Where room_id = '$code';";
$result = mysql_query($sql);
if($result)
{
echo "แก้ไขรายการห้องพักใหม่แล้ว<p>";
mysql_close($link);
}
else
{
echo "ไม่สามารถแก้ไขรายการห้องพักได้<p>";
}
}
}
include "load_room.php";
echo"</td>
<td width=400 bgcolor=#FFFF66>
<ul>
<li><a href=insert_admin.php>เพิ่มข้อมูลรายการห้อง </a></li>
<li><a href=load_room_admin.php>แก้ไข-ลบข้อมูลรายการห้อง </a></li>
<li><a href=logout_admin.php>ออก</a></li>
</ul>
</td>
</table>";
ob_end_flush();
?>
</body>
</html>
Date :
2013-01-23 22:22:57By :
may
ตั้งกระทู้ใหม่น่ะครับ
Date :
2013-01-23 22:24:31By :
mr.win
Server 05
Load balance : Server 05
