Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ถามเรื่องการแสดงข้อมูล asp ใน listbox ครับ คือผมต้องการ ตอนกดปุ่ม ค้นหาแล้วให้ข้อมูลที่เราเลือกใน listbox

ถามเรื่องการแสดงข้อมูล asp ใน listbox ครับ คือผมต้องการ ตอนกดปุ่ม ค้นหาแล้วให้ข้อมูลที่เราเลือกใน listbox

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

falcoa

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

คือผมต้องการ ตอนกดปุ่ม ค้นหาแล้วให้ข้อมูลที่เราเลือกใน listbox มันค้างอยู่ครับข้างล่างนี้โค๊ดครับ
กรุณาแนะนำด้วยครับ ขอบคุณล่วงหน้าครับ
Code (ASP)

 <select name="SlpCode" id="SlpCode">
                   <%
Dim Conn1,strSQL1,objRec1
Set Conn1 = Server.Createobject("ADODB.Connection")
Conn1.Open "Driver={SQL Server};Server=ONE007\SQL2005;Database=ONE;UID=sa;PWD=taweesak;" 
strSQL1 = "SELECT * FROM OSLP "
Set objRec1 = Server.CreateObject("ADODB.Recordset")
objRec1.Open strSQL1, Conn1, 1,3
While Not objRec1.EOF
if Request.QueryString("SlpCode")= objRec1.Fields("SlpCode").Value Then
%>
                   <option value="<%=objRec1.Fields("SlpCode").Value%>"><%=objRec1.Fields("SlpName").Value%></option>
                   <%
else
%>
                   <option value="<%=objRec1.Fields("SlpCode").Value%>"><%=objRec1.Fields("SlpName").Value%></option>
                   <%
End IF
objRec1.MoveNext
	Wend
	%>
                 </select>
                 <%
objRec1.Close()
	Conn1.Close()
	Set objRec1 = Nothing
	Set Conn1 = Nothing
%>

Tag : - - - -

Date : 2010-07-19 15:44:17

By : มือใหม่

View : 1427

Reply : 4

No. 1

TC Admin

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

Code (ASP)

<html>
<head>
<title>ThaiCreate.Com Tutorial</title>
</head>
<%
	Dim Conn,strSQL,objRec,strDefault,strSel
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/mydatabase.mdb"),"" , ""

	strDefault = "C003"
%>
<body>
	<form action="php_listmenu_datebase2.php" method="post" name="form1">
		List Menu<br>
		  <select name="lmName1">
			<option value=""><-- Please Select Item --></option>
			<%
			strSQL = "SELECT * FROM customer "
			Set objRec = Server.CreateObject("ADODB.Recordset")
			objRec.Open strSQL, Conn, 1,3
			While Not objRec.EOF
			If strDefault = objRec.Fields("CustomerID").Value Then
				strSel = "selected"
			Else
				strSel = ""
			End IF
			%>
				<option value="<%=objRec.Fields("CustomerID").Value%>" <%=strSel%>><%=objRec.Fields("CustomerID").Value & " - " & objRec.Fields("Name").Value%></option>
			<%
			objRec.MoveNext
			Wend
			%>
		  </select>
		<input name="btnSubmit" type="submit" value="Submit">
	</form>
</body>
</html>
<%
	objRec.Close()
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing
%>

ตัวอย่างครับ ไม่ยากครับ รับค่าตรง strDefault

Date : 2010-07-19 18:03:43

By : webmaster

No. 2

falcoa

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

ไม่เห็นได้เลยพี่มันไม่ขึ้นครับ ค่าตรง strDefault มาก็มาแต่ตอนแสดงมันไม่ออกครับ

Date : 2010-07-20 12:50:34

By : มือใหม่

No. 3

TC Admin

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

Code (ASP)

If strDefault = objRec.Fields("CustomerID").Value Then

ลองดูตรงที่มันเปรียบเทียบค่าครับ ว่า Type เป็นอะไร ถ้าเป็น String ให้ใช้ CStr() ครอบ ส่วน Integer ให้ใช้ CDbl()

Date : 2010-07-21 06:46:51

By : webmaster

No. 4

jip_is

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

ตกลงทำได้ยัง

Date : 2010-08-01 22:55:51

By : jip_is

ค้นหาข้อมูล

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

Re : ถามเรื่องการแสดงข้อมูล asp ใน listbox ครับ คือผมต้องการ ตอนกดปุ่ม ค้นหาแล้วให้ข้อมูลที่เราเลือกใน listbox

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 01