Forgot Password ??

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

	Registered : 109,027

HOME > ASP > ASP Forum > ช่วยด้วยครับ Error อย่างงี้แก้ยังไงครับ Microsoft VBScript runtime error: Object required: 'Obj'

ช่วยด้วยครับ Error อย่างงี้แก้ยังไงครับ Microsoft VBScript runtime error: Object required: 'Obj'

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

Guest

Microsoft VBScript runtime error: Object required: 'Obj'


<html>
<body>
<form name="form1" method="post" action="sd.asp">
<div align="center"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>ค้นหาจก
Department ID </strong>
<input type="text" name="keyword" value="<%=Request.Form("keyword")%>">
<input type="submit" name="Submit" value="ค้นหา">
</font></div>
</form>
<div align="center"> <font size="2" face="MS Sans Serif, Tahoma, sans-serif">
<%
if Request.Form("keyword")="" then
Response.write("<br>กรุณากรอก Keyword เพื่อค้นหาจาก Field Description<hr>")
else

Set ConnDB = Server.CreateObject("ADODB.Connection")
strConn = "Provider=SQLOLEDB; Server=SN_COM01; database=dbsn; UID=datadb; PWD=321654"

ConnDB.connectionstring = strConn
ConnDB.CursorLocation = 3
ConnDB.Open

Dim str_start : str_start = 5
Dim str_stop : str_stop = 10

strsql = "Select Departmentid,Corruption ,SectionID From Department where Departmentid like '%"&Request.Form("keyword")&"%'"
set rsObj = Server.CreateObject("ADODB.Recordset")
Obj.Open strsql, ConnDB, adOpenForWardOnly,AdLockReadOnly
If Not rsObj.EOF Then
arrRec = rsObj.getRows(,,Array("Departmentid", "Corruption", "SectionID"))
RecCount = Ubound(arrRec,2)+1
Else
RecCount = 0
End If
rsObj.close
Set rsObj = Nothing

for i=0 to ubound(arrRec,2)
Response.Write(arrRec(0, i))
next

If Rs.EOF Then
%>
<strong> ไม่มีข้อมูลในตาราง !</strong>
<%Else%>
</font>
<table width="608" height="48" border="1">
<tr bgcolor="Silver">
<td height="20"><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif">Departmentid</font></strong></div></td>
<td><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif">Corruption</font></strong></div></td>
<td><div align="center"><strong><font size="1" face="MS Sans Serif, Tahoma, sans-serif">SectionID</font></strong></div></td>
</tr>
<% While Not Rs.EOF%>
<tr>
<td><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><%= Rs("Departmentid")%></font></td>
<td><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><%= Rs("Corruption")%></font></td>
<td><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><%= Rs("SectionID")%></font></td>
</tr>
<% Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
</table>
<font size="2" face="MS Sans Serif, Tahoma, sans-serif">
<%
end if
%>
</font></div>
</body>
</html>

Obj.Open strsql, ConnDB, adOpenForWardOnly,AdLockReadOnly

Tag : - - - -

Date : 9 ก.ค. 2551 22:30:32

By : narongsr

View : 1621

Reply : 4

No. 1

Guest

Obj.Open strsql, ConnDB, adOpenForWardOnly,AdLockReadOnly

น่าจะเป็น

rsObj.Open strsql, ConnDB, adOpenForWardOnly,AdLockReadOnly

Date : 9 ก.ค. 2551 23:21:30

By : อิอิ

No. 2

Guest

ใส่เป็น
rsObj.Open strsql, ConnDB, adOpenForWardOnly,AdLockReadOnly แล้วก็ยังรันไม่ออกครับ

แต่ดัน error บันทันนี้ครับ

If Rs.EOF Then

Date : 9 ก.ค. 2551 23:48:16

By : narongsr

No. 3

Guest

คุณมั่วมาก คุณกลัวไปดูซะ Rs มันมาจากไหน แก้ยังงี้ก็ไม่ผ่านหรอก

Date : 10 ก.ค. 2551 09:06:59

By : อิอิ

No. 4

Guest

แนะนำหน่อยครับว่าจะแก้ตรงไหนครับ ผมมือใหม่หัดเขียนด้วยครับ

ขอบคุณครับ

Date : 10 ก.ค. 2551 16:32:43

By : narongsr

ค้นหาข้อมูล

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

Re : ช่วยด้วยครับ Error อย่างงี้แก้ยังไงครับ Microsoft VBScript runtime error: Object required: 'Obj'

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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