Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ต้องการผู้รู้เข้ามาตอบด่วนครับ code คือ Criteria = WHERE [LIKE] extra table field name datatype

ต้องการผู้รู้เข้ามาตอบด่วนครับ code คือ Criteria = WHERE [LIKE] extra table field name datatype

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

Guest

code คือ

<%
Criteria = " WHERE [LIKE] <> '0' "
if Request("Submit") = "Search" then
if request.form("[LIKE]") <> "" then
Criteria = Criteria & " AND [LIKE] = '" & request.form("[LIKE]") & "'"
end if

if request.form("date") <> "" then
Criteria = Criteria & " AND date = '" & request.form("date") & "'"
end if

if request.form("id_customer") <> "" then
Criteria = Criteria & " AND id_customer = " & request.form("id_customer")
end if

end if
'worklike = request.Form("[LIKE]")

%>

<HTML>
<HEAD>
<TITLE> Database Management System</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=windows-874">
</HEAD>
<BODY>
<form name="send" action="select.asp" method="post" >
<table width="52%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">ค้นหา   </div></td>
</tr>
<tr>
<td width="34%"><span lang="th">ความถนัด</span>:</td>
<td width="66%"><label>
<input name="[LIKE]" type="text" id="[LIKE]">
</label></td>
</tr>
<tr>
<td> </td>
<td><label>
<input type="submit" name="Submit" value="Search">
<input type="submit" name="Submit2" value="Reset">
</label></td>
</tr>
</table>
</form>
<BR></TD>
<br>
<%
Dim oRSc
Set Conn=Server.CreateObject("ADODB.Connection")
oRSc.Open"extra","DSN=test_project_update.mdb"
oRSc.MoveFirst
%>
<FORM METHOD="get" ACTION="DoSomething.asp">
</FORM>
<P>SELECT NAME="extra,EMPLOYEE"SIZE="1">
<%
Do While NOT oRSc.EOF
Reespond.Write"<OPTION SELECT VALUE='"&oRSc("[LIKE]")&"'>"
Reespond.Write oRSc("[LIKE]")&"</OPTON>"
oRSc.MoveNext
Loop
oRSc.Close
Set oRSc=Nothing
%>
<SELECT></P>
</P><INPUT TYPE="submit"></P>
</FORM></BODY>
</HTML>
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("test_project_update.mdb")
Sql="Select EMPLOYEE.E_MAIL,EMPLOYEE.TEL,extra.* from extra,EMPLOYEE " & Criteria
'WHERE EMPLOYEE.EMP_ID = extra.EMP_ID
'Sql="Select * from extra where [like] like '%" & worklike & "%'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
%>
<TABLE border="1">
<TR>
<TD>     <span lang="th">รหัสความถนัด</span>     </TD>
<TD>    <span lang="th">รหัสพนักงาน</span>      </TD>
<TD>     <span lang="th">ชื่อ</span>       </TD>
<TD>     <span lang="th">นามสกุล</span>       </TD>
<TD>     <span lang="th">ความถนัด</span>       </TD>
<TD>     <span lang="th">อีเมล์</span>       </TD>
<TD>     <span lang="th">โทรศัพท์</span>       </TD>
</TR>
<%
Do While Not RS.EOF
%>
<TR>
<TD><%= RS("ID_extra")%></TD>
<TD><%= RS("EMP_ID")%></TD>
<TD><%= RS("NAME_THAI")%></TD>
<TD><%= RS("SURENAME_THAI")%></TD>
<TD><%= RS("LIKE")%></TD>
<TD><%= RS("E_MAIL")%></TD>
<TD><%= RS("TEL")%></TD>
</TR>
<%
RS.MoveNext
Loop
Rs.close
set Rs= nothing
%>
</TABLE>
<html>
<body>
</body>
</html>

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/project/select.asp, line 53

table คือ

Employee table

field name datatype
1. EMP_ID Number
2. TITLE_NAME Text
3. NAME_THAI Text
4. SURENAME_THAI Text
5. POST_ID Text
6. ORG_ID Text
7. E_MAIL Text
8. TEL Number
---------------------------------------------------------------
extra table

field name datatype
1. ID_extra AutoNumber
2. EMP_ID Number
3. NAME_THAI Text
4. SURENAME_THAI Text
5. LIKE Text
----------------------------------------------------------------------

Tag : - - - -

Date : 24 ธ.ค. 2550 00:04:51

By : beginner

View : 1428

Reply : 2

No. 1

Guest

Set Conn=Server.CreateObject("ADODB.Connection")
oRSc.Open"extra","DSN=test_project_update.mdb"
oRSc.MoveFirst

เปิด recordset โดยไม่ระบุ connection ครับ
สิ่งที่คุณระบุไป โปรแกรม ไม่รับทราบว่าเป็น connection เพราะคุณยังไม่ได้ SET หรือบอกให้โปรแกรมทราบ

Date : 24 ธ.ค. 2550 14:54:07

By : GTM

No. 2

Guest

คุณ GTM นี่สุดยอดเลยครับ นับถือจริงๆ

Date : 26 ธ.ค. 2550 09:54:39

By : spydvd

ค้นหาข้อมูล

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

Re : ต้องการผู้รู้เข้ามาตอบด่วนครับ code คือ Criteria = WHERE [LIKE] extra table field name datatype

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 00

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); ต้องการผู้รู้เข้ามาตอบด่วนครับ code คือ Criteria = WHERE [LIKE] extra table field name datatype

No. 1

No. 2

ค้นหาข้อมูล

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

Notice

ต้องการผู้รู้เข้ามาตอบด่วนครับ code คือ Criteria = WHERE [LIKE] extra table field name datatype