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

Registered : 109,027

HOME > ASP > ASP Forum > รบกวนถามการรับข้อมูลทีละหลายๆ เรคคอร์ด ครับ คือเวลาออกแบบรับข้อมูลเป็นรูปแบบตาราง



 

รบกวนถามการรับข้อมูลทีละหลายๆ เรคคอร์ด ครับ คือเวลาออกแบบรับข้อมูลเป็นรูปแบบตาราง

 



Topic : 060143

Guest




ด้านป้อนข้อมูล ต้องการเป็น Array
<input type=text name=Rname[] style=width:430px>

รับค่าเพื่อ update database
(code ทดสอบรับค่าจาก form)

for i=0 & i<count.Request.Form("Rname") & i++
if Request.Form("Rname")[i] = "" then
Request.Form("Rname")[i]&"<br>"
response.Write Request.Form("Rname")
end if
next

ขอบคุณครับ



Tag : ASP







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-05-13 10:50:41 By : tukgae View : 1471 Reply : 2
 

 

No. 1



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

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

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

ตัวอย่างการ Insert ข้อมูลหลาย ๆ Record ครับ

asp_access_multiple_insert1.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com Tutorial</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<form action="asp_access_multiple_insert2.asp" name="frmAdd" method="post">
Select Line :
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
Dim i , sel , line
For i = 1 To 50
If CInt(Request.QueryString("Line")) = i Then
sel = "selected"
Else
sel = ""
End IF
%>
<option value="<%=Request.ServerVariables("SCRIPT_NAME")%>?Line=<%=i%>" <%=sel%>><%=i%></option>
<%
Next
%>
</select>
<table width="600" border="1">
<tr>
<th width="91"> <div align="center">CustomerID </div></th>
<th width="160"> <div align="center">Name </div></th>
<th width="198"> <div align="center">Email </div></th>
<th width="97"> <div align="center">CountryCode </div></th>
<th width="70"> <div align="center">Budget </div></th>
<th width="70"> <div align="center">Used </div></th>
</tr>
<%
line = Request.QueryString("line")

IF line = "" Then
line = 1
End IF

For i = 1 To line
%>
<tr>
<td><div align="center"><input type="text" name="txtCustomerID<%=i%>" size="5"></div></td>
<td><input type="text" name="txtName<%=i%>" size="20"></td>
<td><input type="text" name="txtEmail<%=i%>" size="20"></td>
<td><div align="center"><input type="text" name="txtCountryCode<%=i%>" size="2"></div></td>
<td align="right"><input type="text" name="txtBudget<%=i%>" size="5"></td>
<td align="right"><input type="text" name="txtUsed<%=i%>" size="5"></td>
</tr>
<%
Next
%>
</table>
<input type="submit" name="submit" value="submit">
<input type="hidden" name="hdnLine" value="<%=i-1%>">
</form>
</body>
</html>


asp_access_multiple_insert2.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objExec,i
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""

For  i = 1 To Request.Form("hdnLine")
If Trim(Request.Form("txtCustomerID" & i)) <> "" Then
strSQL = ""
strSQL = strSQL &"INSERT INTO customer "
strSQL = strSQL &"(CustomerID,Name,Email,CountryCode,Budget,Used) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("txtCustomerID" & i)&"','"&Request.Form("txtName" & i)&"', '"&Request.Form("txtEmail" & i)&"' "
strSQL = strSQL &",'"&Request.Form("txtCountryCode" & i)&"','"&Request.Form("txtBudget" & i)&"', '"&Request.Form("txtUsed" & i)&"') "
Set objExec = Conn.Execute(strSQL)
End IF
Next

Response.write("Save completed. Click <a href='asp_access_multiple_insert3.asp'>here</a> to view.")

Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>
</body>
</html>


asp_access_multiple_insert3.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM customer "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
%>
<table width="600" border="1">
<tr>
<th width="91"> <div align="center">CustomerID </div></th>
<th width="98"> <div align="center">Name </div></th>
<th width="198"> <div align="center">Email </div></th>
<th width="97"> <div align="center">CountryCode </div></th>
<th width="59"> <div align="center">Budget </div></th>
<th width="71"> <div align="center">Used </div></th>
</tr>
<%
While Not objRec.EOF
%>
<tr>
<td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
<td><%=objRec.Fields("Name").Value%></td>
<td><%=objRec.Fields("Email").Value%></td>
<td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
<td align="right"><%=objRec.Fields("Budget").Value%></td>
<td align="right"><%=objRec.Fields("Used").Value%></td>
</tr>
<%
objRec.MoveNext
Wend
%>
</table>
<%
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-13 10:58:33 By : webmaster
 


 

No. 2



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



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


ขอบคุณก่อน

คือผมเขียนไปแล้วนะครับ
โดยใช้ java ควบคุมการแสดง textbox

var gFiles = 0;
function addFile(rq) {
var div = document.createElement('div');
div.setAttribute('id', 'file-' + gFiles);
div.innerHTML = '<input type="text" name="Rname[]" style="margin-left:157px; WIDTH: 430px;"><span onclick="removeFile(\'file-' + gFiles + '\')" style="cursor:pointer;"><img src="/Intranet_test/hr/img/icon_delete.gif" /></span>';

gFiles++;
}

function removeFile(aId) {
var obj = document.getElementById(aId);
obj.parentNode.removeChild(obj);
}
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-13 11:02:18 By : paisarn
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : รบกวนถามการรับข้อมูลทีละหลายๆ เรคคอร์ด ครับ คือเวลาออกแบบรับข้อมูลเป็นรูปแบบตาราง
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

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