Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ต้องการค้นหาข้อมูล แล้วนำกลับมาใช้งานต่อ ทำงัยครับ

ต้องการค้นหาข้อมูล แล้วนำกลับมาใช้งานต่อ ทำงัยครับ

เริ่มหัวข้อใหม่

Guest

คือว่าตอนนี้มีเมนู 3 เมนู ดังนี้ คือ
บันทึกการขาดงาน
บันทึการฝึกงาน
บันทึการขึ้นเงินเดือน
เมื่อ Run โปรแกรมแล้ว จะให้เลือก แต่ละเมนู โดยแต่ละเมนูต้องมีการระบุ รหัสพนักงานด้วย ซึ่งจะเป็นปุ่มสำหรับค้นหารหัสพนักงาน โดยจะค้นหาแล้วส่งรหัสนั่นกลับมายังเมนู ข้างต้น แต่ปัญหามีอยู่ว่า เราจะส่งกลับมายังงัย ถึงจะรู้ว่าส่งมาเมนูไหน เพราะ ถ้ามีเมนูเดียวก็ ส่งต่อมาตาม URL ได้ แต่ถ้าส่งแบบนี้ จะส่งได้แค่ ฟอร์มเดียว คือต้องระบุ URL ปลายทาง แล้วจะทำยังงัยครับ

Tag : - - - -

Date : 7 ก.พ. 2548 11:37:07

By : Aragon

View : 2570

Reply : 2

No. 1

TC Admin

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

อาจจะใช้ Tab ครับ และส่งค่าไปกับ URL ทุก ๆ ทั้งที่มีการลิ้งค์ไปหน้าอื่น ๆ

Date : 7 ก.พ. 2548 14:36:54

By : @W_IN

No. 2

TC Admin

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

Code

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<form name="frmSearch" method="get" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<table width="599" border="1">
<tr>
<th>Keyword
<input name="txtKeyword" type="text" id="txtKeyword" value="<%=Request.QueryString("txtKeyword")%>">
<input type="submit" value="Search"></th>
</tr>
</table>
</form>
<%
if Request.QueryString("txtKeyword") <> "" Then
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
'*** Search By Name or Email ***'
strSQL = "SELECT * FROM customer "
strSQL = strSQL & "WHERE (Name LIKE '%"& Request.QueryString("txtKeyword") &"%' "
strSQL = strSQL & "or Email LIKE '%"& Request.QueryString("txtKeyword") &"%' ) "
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
End IF
%>
</body>
</html>

Date : 2009-04-26 09:45:51

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ต้องการค้นหาข้อมูล แล้วนำกลับมาใช้งานต่อ ทำงัยครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01