For i=0 To Request.Form("user").Count-1
' ตรวจสอบค่าว่าง
if Request.Form("user")(i) <> "" Then
Response.write Request.Form("user")(i)&"<br>"
ให้ใช้คำส่ง Insert Reccord ในระหว่างนี้ครับ
End if
Next
แล้ว post ดังนี้ แต่ยังไม่ได้ ไม่แน่ใจว่าจะใช่แบบนี้หรือเปล่า
เป็น Database Oracle ครับ
<%
Set Conn=Server.Createobject("ADODB.Connection")
myDSN="DSN=TestDB;UID=test;PWD=test;SERVER=172.16.1.12;ConnectString=test;"
Conn.Open myDSN
sql ="Select * From CONSOLIDATE_ACTUAL"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
For i=0 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Response.write Request.Form("INTYPE")(i)&"<br>"
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")
Rs.Update
Conn.Close
End if
Next
%>
<%
Set Conn=Server.Createobject("ADODB.Connection")
myDSN="DSN=TestDB;UID=test;PWD=test;SERVER=172.16.1.12;ConnectString=test;"
Conn.Open myDSN
sql ="Select * From CONSOLIDATE_ACTUAL"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
For i=0 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")(i)
Rs.Update
End if
Next
Conn.Close
%>
Date :
11 ม.ค. 2548 12:34:31
By :
@W_IN
No. 5
Guest
ยังไม่ได้เลยครับ
Error Type:
Request object, ASP 0105 (0x80004005)
An array index is out of range.
/append.asp, line 10
For i=1 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")(i)
Rs("ACTUAL") = Request.Form("ACTUAL")(i)
Rs.Update
End if
Next
%>
คือตอนนี้ผมจะรับข้อมูลทีละห้าเรคคอร์ด โดย set value ของค่า intype ไว้
แต่ค่า actual จะคีย์เข้าไปเอง แต่กรณีเรคคอร์ดที่ไม่มีค่า actual หรือเป็นค่าว่าง
จะไม่ให้บรรทึกลงฐานข้อมูล ต้องทำอย่างไรครับ