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

Registered : 107,329

HOME > ASP > ASP Forum > ช่วยทีครับ ผมดึงข้อมูลไม่ขึ้นเลยครับ ช่วยดู Code ของ Rai.asp ให้ที่ครับว่ามีผิดตรงไหนหรือป่าว





 

ช่วยทีครับ ผมดึงข้อมูลไม่ขึ้นเลยครับ ช่วยดู Code ของ Rai.asp ให้ที่ครับว่ามีผิดตรงไหนหรือป่าว

 



Topic : 094814



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



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



Pak.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 14px;
}
.style2 {font-size: 12; }
.style3 {font-weight: bold}
.style6 {
	color: #FFFFFF;
	font-size: 14px;
}
.style8 {
	color: #0077A5;
	font-weight: bold;
}
.style9 {color: #0077A5}
.style10 {font-size: 12px}
.style11 {font-size: 12; color: #0077A5; }
.style12 {
	font-size: 14px;
	font-weight: bold;
}
.style13 {color: #FFFFFF; font-size: 14px; font-weight: bold; }
-->
</style>
</head>

<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="750" height="200" class="font"><table width="50%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="font">
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="2" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style10">รายงานผู้ประกอบการที่มีเลขประจำตัวผู้เสียภาษี</span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="2" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style10">ทั่วประเทศ</span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#0077A5" class="border"> 
          <td width="150" height="30" bordercolor="#FFFFFF" bgcolor="#0077A5"><div align="center" class="style6 style12">หน่วยงาน</div></td>
          <td width="130" bordercolor="#FFFFFF"><div align="center" class="style13">จำนวนราย</div></td>
        </tr>
<%
On Error Resume Next
sql="SELECT  ภาค, COUNT(TIN) AS cnt_tin, PAK FROM K_SUM where TIN <>' ' GROUP BY ภาค, PAK ORDER BY ภาค"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,3
If Rs.EOF Then
%>
<%Else%>
<%While not rs.eof
rai=rs("cnt_tin")
sum_rai=sum_rai+int(rai)
%>
        <tr bordercolor="#FFFFFF" bgcolor="#E1F0FF">
          <td width="150" height="30"><div align="center" class="style11"><a href="rai.asp?crai=<%=rs("ภาค")%>"><%=rs("pak")%></a></div></td>
          <td width="130"><div align="center" class="style11"><%=rai%></div></td>
        </tr>
<%
rs.MoveNext
Wend
rs.close
conn.close
end if

%>
        <tr bordercolor="#FFFFFF" bgcolor="#AAC6FF">
          <td height="30"><div align="center" class="style8"><strong>รวม</strong></div></td>
          <td width="130"><div align="center"><strong><span class="style9"><%=sum_rai%></span></strong></div></td>
        </tr>
      </table>

</body>
</html>


ช่วยดู Code ของ Rai.asp ให้ที่ครับว่ามีผิดตรงไหนหรือป่าวครับ เพราะ Rai.asp ไม่ดึงข้อมูลขึ้นมาเลยครับ

Rai.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 14px;
}
.style2 {font-size: 12; }
.style3 {font-weight: bold}
.style5 {font-size: 12px; font-weight: bold; }
.style6 {color: #FFFFFF}
.style7 {font-size: 12; color: #FFFFFF; }
.style8 {color: #0077A5}
-->
</style>
</head>

<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="750" height="200" class="font"><%
On Error Resume Next
cst=request.QueryString("cst")
sql_pak="select * from K_SUM where province_9='"&cst&"' "
Set Rs_pak = Server.CreateObject("ADODB.Recordset")
Rs_pak.open sql_pak,conn,1,3
If Rs_pak.EOF Then
	'response.write i
	else
	province=rs_pak("province_9")
	end if
%>

      <table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="font">
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5">รายงานผู้ประกอบการที่มีเลขประจำตัวผู้เสียภาษี</span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5"><% response.write province %></span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#0077A5" class="border"> 
          <td width="5%" height="30" bordercolor="#FFFFFF" bgcolor="#0077A5"><div align="center" class="style2 style6">
            <div align="center">ลำดับที่</div>
          </div></td>
          <td width="10%"><div align="center" class="style6">เลขประจำตัวผู้เสียภาษี</div></td>
          <td width="15%"><div align="center" class="style6">ชื่อผู้ประกอบการ</div></td>
          <td width="10%"><div align="center" class="style6">ทีมกำกับ</div></td>
          <td width="20%"><div align="center" class="style6">ประเภทกิจการ</div></td>
          <td width="10%"><div align="center" class="style7"><div align="center">Website</div>
          </div></td>
        </tr>
<%
On Error Resume Next
crai=request.QueryString("crai")
sql="select * from K_SUM where province_9='"&crai&"' order by TIN ASC" 
Conn.Open ConnString
Set Rs = Conn.Execute(Sql)
While not rs.eof
numrec=numrec + 1
%>
        <tr bordercolor="#FFFFFF" bgcolor="#E1F0FF">
          <td width="50" height="28"><div align="center"><span class="style2 style8"><%=numrec%></span></div></td>
          <td width="10%" height="28"><span class="style2 style8"><%=rs("tin")%></span></td>
          <td width="15%" height="28"><span class="style2 style8"><%=rs("name")%></span></td>
          <td width="10%" height="28"><div align="center"><span class="style2 style8"><%=rs("team")%></span></div></td>
          <td width="20%" height="28"><span class="style2 style8"><%=rs("descrip")%></span></td>
          <td width="10%" height="28"><div align="center"><span class="style2 style8"><a href="<%="http://"&rs("web1")%>"><%=rs("web1")%></a></span></div></td>
        </tr>

<%
		rs.MoveNext
		Wend
%>
      </table>
    </td>
  </tr>
</table>

</body>
</html>




Tag : ASP, Ms SQL Server 2005







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-05-07 13:44:22 By : KT-Raiden View : 1154 Reply : 16
 

 

No. 1



โพสกระทู้ ( 73,896 )
บทความ ( 837 )

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

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

Quote:
On Error Resume Next


เอาตัวนี้ออกก่อนครับ แล้วดูว่ามี Error หรือไม่






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-07 14:56:53 By : mr.win
 


 

No. 2



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



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

ลองแล้วครับมันขึ้น

An error occurred on the server when processing the URL. Please contact the system administrator
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-07 15:36:31 By : KT-Raiden
 

 

No. 3



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



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

ผมจะทำอย่างไงดีครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-08 15:58:01 By : KT-Raiden
 


 

No. 4



โพสกระทู้ ( 73,896 )
บทความ ( 837 )

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

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

An error occurred on the server when processing the URL. Please contact the system administrator


ทำให้มันโชว์ Error ก่อนครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-08 15:59:50 By : mr.win
 


 

No. 5



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



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

ถ้าไม่เอา On Error Resume Next ออกจะมีวิธีแก้อย่างอื่นอีกไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-14 09:49:05 By : KT-Raiden
 


 

No. 6



โพสกระทู้ ( 73,896 )
บทความ ( 837 )

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

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

มันจะต้องหา Error ก่อนครับ

Quote:
On Error Resume Next


ตัวนี้เลืกใช้ได้แล้วครับ ให้ใช้เฉพาะภายใน Function ก็พอครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-14 11:34:38 By : mr.win
 


 

No. 7



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



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

ผมแก้ไขตามที่บอกมาแล้วมันขึ้นว่า

ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/work/myasp/ASP/Rai.asp, line 92

*** ( line 92 ตรงกับบรรทัดที่ 62 ของ Rai.asp )
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-16 09:47:33 By : KT-Raiden
 


 

No. 8



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



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

จะต้องแก้อย่างไงครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-16 09:48:27 By : KT-Raiden
 


 

No. 9



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



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

ช่วยบอกผมทีครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-17 10:52:44 By : KT-Raiden
 


 

No. 10



โพสกระทู้ ( 73,896 )
บทความ ( 837 )

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

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

อ่านบทความนี้ครับ

Go to : ASP SQL Server Connect to Database
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-17 15:12:57 By : mr.win
 


 

No. 11



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



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

ผมยังไม่เข้าใจว่ามันผิดอย่างไงครับ

Connection
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>


เพราะว่าผมลองใช้กับCodeข้างล่างนี้กลับใช้ได้

Data All
<html>
<head>
<title>ข้อมูลทั้งหมด</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 14px;
}
.style2 {font-size: 12; }
.style3 {font-weight: bold}
.style5 {font-size: 12px; font-weight: bold; }
.style6 {color: #FFFFFF}
.style7 {font-size: 12; color: #FFFFFF; }
.style8 {color: #0077A5}
-->
</style>

</head>

<body  onLoad="now()">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="750" height="200" class="font"><table width="968" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="font">
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5">รายงานผู้ประกอบการที่มีเลขประจำตัวผู้เสียภาษี</span></div></td>
        <tr>
				<td>&nbsp;</td>
		</tr>
        <tr bordercolor="#FFFFFF" bgcolor="#0077A5" class="border"> 
          <td width="65" height="30" bordercolor="#FFFFFF" bgcolor="#0077A5"><div align="center" class="style2 style6">
            <div align="center">ลำดับที่</div>
          </div></td>
          <td width="114"><div align="center" class="style6">เลขประจำตัวผู้เสียภาษี</div></td>
          <td width="277"><div align="center" class="style6">ชื่อผู้ประกอบการ</div></td>
		  <td width="81"><div align="center" class="style6">หน่วยงาน</div></td>
          <td width="80"><div align="center" class="style6">ทีมกำกับ</div></td>
          <td width="239"><div align="center" class="style6">ประเภทกิจการ</div></td>
          <td width="54"><div align="center" class="style7"> Website </div></td>
        </tr>
<%
On Error Resume Next
sql="select * from K_SUM where TIN<>' ' order by TIN ASC" 
Conn.Open ConnString
Set Rs = Conn.Execute(Sql)
While not rs.eof
numrec=numrec + 1
%>
        <tr bordercolor="#FFFFFF" bgcolor="#E1F0FF">
          <td width="65" height="28"><div align="center"><span class="style2 style8"><%=numrec%></span></div></td>
          <td width="114" height="28"><div align="center"><span class="style2 style8"><%=rs("tin")%></span></div></td>
          <td width="277" height="28"><span class="style2 style8"><%=rs("name")%></span></td>
		  <td width="81" height="28"><div align="center"><span class="style2 style8"><%=rs("pak_name")%></span></div></td
          ><td width="80" height="28"><div align="center"><span class="style2 style8"><%=rs("team")%></span></div></td>
          <td width="239" height="28"><span class="style2 style8"><%=rs("descrip")%></span></td>
          <td width="54" height="28"><div align="center"><span class="style2 style8"><a href="<%="http://"&rs("web1")%>"><%=rs("web1")%></a></span></div></td>
        </tr>

<%
		rs.MoveNext
		Wend
%>
      </table>
      
    </td>
  </tr>
</table>

</body>
</html>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-20 10:22:43 By : KT-Raiden
 


 

No. 12



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



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


ในตัวอย่าง คุณได้ทำการเปิด connection ไว้ที่นี่

Code (ASP)
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>


แล้วมีการเรียกใช้งาน conn อีกครั้ง

Code (ASP)
<%
On Error Resume Next
sql="select * from K_SUM where TIN<>' ' order by TIN ASC" 
Conn.Open ConnString  '<<===========  ตรงนี้
Set Rs = Conn.Execute(Sql)
While not rs.eof
numrec=numrec + 1
%>


และผมพยายามมองอยู่ว่า ConnString มีค้าเป็นอะไร แต่ก็ไม่พบครับ
และหากต้องการเรียกใช้ conn.open จำเป็นต้องมีการ ปิดการทำงานของมันเสียก่อน โดยใช้คำสั่ง conn.close นะครับ
ถ้าผิดพลาดขออภัยด้วยครับ


ประวัติการแก้ไข
2013-05-26 07:07:30
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-26 07:05:57 By : JDeE
 


 

No. 13



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



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

ผมลองแก้ไขโค้ดดูแล้วรันดูมันขึ้นว่า

ADODB.Recordset error '800a0e7d'
The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/work/myasp/ASP/Rai.asp, line 95

*** ( line 95 ตรงกับบรรทัดที่ 63 : Rs.open sql,conn,1,3 ของ Rai.asp )

ผมจะแก้อย่างไงดีครับ

Rai.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 14px;
}
.style2 {font-size: 12; }
.style3 {font-weight: bold}
.style5 {font-size: 12px; font-weight: bold; }
.style6 {color: #FFFFFF}
.style7 {font-size: 12; color: #FFFFFF; }
.style8 {color: #0077A5}
-->
</style>
</head>

<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="750" height="200" class="font">
<%

cst=request.QueryString("cst")
sql_pak="select * from K_SUM where province_9='"&cst&"' "
Set Rs_pak = Server.CreateObject("ADODB.Recordset")
Rs_pak.open sql_pak,conn,1,3
If Rs_pak.EOF Then
	'response.write i
	else
	province=rs_pak("province_9")
	end if
%>

      <table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="font">
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5">รายงานผู้ประกอบการที่มีเลขประจำตัวผู้เสียภาษี</span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5"><% response.write province %></span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#0077A5" class="border"> 
          <td width="5%" height="30" bordercolor="#FFFFFF" bgcolor="#0077A5"><div align="center" class="style2 style6">
            <div align="center">ลำดับที่</div>
          </div></td>
          <td width="10%"><div align="center" class="style6">เลขประจำตัวผู้เสียภาษี</div></td>
          <td width="15%"><div align="center" class="style6">ชื่อผู้ประกอบการ</div></td>
          <td width="10%"><div align="center" class="style6">ทีมกำกับ</div></td>
          <td width="20%"><div align="center" class="style6">ประเภทกิจการ</div></td>
          <td width="10%"><div align="center" class="style7"><div align="center">Website</div>
          </div></td>
        </tr>
<%
crai=request.QueryString("crai")
sql="select * from K_SUM where province_9='"&crai&"' order by TIN ASC" 
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,3
While not rs.eof
numrec=numrec + 1
%>
        <tr bordercolor="#FFFFFF" bgcolor="#E1F0FF">
          <td width="50" height="28"><div align="center"><span class="style2 style8"><%=numrec%></span></div></td>
          <td width="10%" height="28"><span class="style2 style8"><%=rs("tin")%></span></td>
          <td width="15%" height="28"><span class="style2 style8"><%=rs("name")%></span></td>
          <td width="10%" height="28"><div align="center"><span class="style2 style8"><%=rs("team")%></span></div></td>
          <td width="20%" height="28"><span class="style2 style8"><%=rs("descrip")%></span></td>
          <td width="10%" height="28"><div align="center"><span class="style2 style8"><a href="<%="http://"&rs("web1")%>"><%=rs("web1")%></a></span></div></td>
        </tr>

<%
		rs.MoveNext
		Wend
		rs.close
		conn.close
%>
      </table>
    </td>
  </tr>
</table>

</body>
</html>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-30 13:52:47 By : KT-Raiden
 


 

No. 14



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



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


คุณ เปิด con ด้วย 1,3 ทั้ง ๆที่ไม่จำเป็นนะครับ

conn,1,3 มันเหมือนการเปิดมาเพื่อทำการ แก้ไขข้อมูล เพราะฉนั้น เวลาเปิดขึ้นมา มันก็จะมีการรอคอย คำสั่ง Addnew/Update/delete/close ด้วย แต่จากที่ผมดูแล้ว คุณต้องการเพียงเปิดข้อมูลขึ้นมาเพื่อดูเฉย ๆ
แนะสำเปิดแบบนี้ครับ rs.open sql,conn ก็พอครับ ไม่ต้องใส่ ,1,3

ส่วน error ที่เกิดขึ้น ก็อาจเป็นไปได้ว่า conn มันยังคงถูกใช้งานอยู่ครับ ให้ใส่ conn.close ก่อน แล้วค่อยไปเปิดใช้งานใหม่

conn.close
Rs.open sql,conn,1,3 ซึ่งที่จริง ใช้แค่ Rs.open sql,conn พอนะครับ
ความเร็วในการทำงาน จะเร็วกว่ากันเป็นเท่าตัวด้วยครับ

แถมให้นิดนึง การใช้งาน พวก conn พวก rs นี่เป็นปัญหาใหญ่ของนักเขียนโปรแกรมเลยนะครับ หากว่าเราไม่แม่นในการใช้มัน

แนะนำว่าสร้าง โปรแกรมเล็ก ๆขึ้นมา แล้วเรียกใช้งานด้วยความสดวก ประมาณนี้ครับ

Code (ASP)
sub CheckRs
	if rs.state = 1 then
		rs.close
	end if
end sub
sub CheckConn
	if conn.state = 1 then
		conn.close
	end if
end sub
' สอง sup นี้ เรียกใช้งานทุกครั้ง ก่อนจะทำการเปิดฐานข้อมูล ทำให้ติดเป็นนิสัยครบ แล้วโปรแกรมของคุณ จะทำงานได้ดี เช่น

CheckConn
conn.open ConnString1
CheckRs
rs.open Sqlstring1,conn

'เรียกใช้งานได้ตามปกติ 


จากตัวอย่างที่ผมยกให้ดู ก็จะทำให้ คุณใช้งาน conn และ rs ได้สดวก และไม่จำเป็นต้องไปประกาศ Rs_pak ให้เปลืองหน่วยความจำ เพราะคุณเปิดข้นมา แล้วนำค่าไปใส่ในตัวแปล province ไว้แล้ว ใช้เส็ด ก็ปิดไปซะ เอาตัวแปลมาใช้ต่อได้ครับ

อีกจุดนึง

คุณรับค่า cst ด้วย request.querystring("cst") เข้ามา แล้วนำไปใช้ในการค้นหาในฐานข้อมูลซึ่งก็คือ
"select * from K_SUM where province_9='"&cst&"' "
หมายความว่า คุณต้องการค้นหาข้อมูล ใน K_SUM ที่มี province_9 = (ค่าของตัวแปล cst)

และเมื่อได้ค่าออกมาแล้ว คุณกลับเก็บค่า ที่ได้มาจาก ฐานข้อมูลแบบนี้
province=rs_pak("province_9")
ผมงงมากนะ เก็บทำไม ในเมื่อ rs_pak("province_9") มันมีค่าเท่ากับ cst ที่คูณเอาไปใช้ค้นหาอยู่แล้ว ไม่จำเป็นต้องไปติดต่อฐานข้อมูลเลยก็ได้

คุณใช้ province=cst ไปตรง ๆเลยดีกว่ามั้ยครับ หรือไม่ก็ เอาค้า cst ไปใช้ในหน้าเพจได้เลยตรง ๆ

ส่วน การเชื่อมต่อครั้งที่สอง คุณทำแบบนี้ได้ครับ เพราะคุณต้องการใช้ข้อมูลอื่น ๆในฐานข้อมูลอยู่แล้ว
"select * from K_SUM where province_9='"&crai&"' order by TIN ASC"

เป็นเพื่อนข้อเสนอแนะจากผม คนที่ไม่ค่อยเก่ง asp เท่าไรครับ เพียงแต่ผมมีใจอยากจะฃ่วยครับ ผมก็เคยเป็นแบบคุณมาก่อน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-05-31 10:11:52 By : JDeE
 


 

No. 15



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



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

ตอบความคิดเห็นที่ : 14 เขียนโดย : JDeE เมื่อวันที่ 2013-05-31 10:11:52
รายละเอียดของการตอบ ::
ขอโทษครับผมยังไม่ค่อยเข้าใจวิธีของคุณเท่าไรนัก ช่วยแกโค้ดให้ดูหน่อยได้ไหมครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-04 15:23:52 By : KT-Raiden
 


 

No. 16



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



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


พยายามเข้าครับ ไม่ได้ ก็เอามาถาม ผมไม่ค่อยได้เข้ามาครับเพราะช่วงนี้งานเข้า -*-

Code (ASP)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="font.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-size: 14px;
}
.style2 {font-size: 12; }
.style3 {font-weight: bold}
.style5 {font-size: 12px; font-weight: bold; }
.style6 {color: #FFFFFF}
.style7 {font-size: 12; color: #FFFFFF; }
.style8 {color: #0077A5}
-->
</style>
</head>

<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="750" height="200" class="font">
<%

cst=request.QueryString("cst")
'sql_pak="select * from K_SUM where province_9='"&cst&"' "
'Set Rs_pak = Server.CreateObject("ADODB.Recordset")
'Rs_pak.open sql_pak,conn,1,3
'If Rs_pak.EOF Then
	'response.write i
'	else
'	province=rs_pak("province_9")
'	end if
%>

      <table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="font">
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5">รายงานผู้ประกอบการที่มีเลขประจำตัวผู้เสียภาษี</span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
          <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5"><% response.write cst  'province %></span></div></td>
        </tr>
        <tr bordercolor="#FFFFFF" bgcolor="#0077A5" class="border"> 
          <td width="5%" height="30" bordercolor="#FFFFFF" bgcolor="#0077A5"><div align="center" class="style2 style6">
            <div align="center">ลำดับที่</div>
          </div></td>
          <td width="10%"><div align="center" class="style6">เลขประจำตัวผู้เสียภาษี</div></td>
          <td width="15%"><div align="center" class="style6">ชื่อผู้ประกอบการ</div></td>
          <td width="10%"><div align="center" class="style6">ทีมกำกับ</div></td>
          <td width="20%"><div align="center" class="style6">ประเภทกิจการ</div></td>
          <td width="10%"><div align="center" class="style7"><div align="center">Website</div>
          </div></td>
        </tr>
<%
crai=request.QueryString("crai")
sql="select * from K_SUM where province_9='"&crai&"' order by TIN ASC" 
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn ',1,3

		if not rs.eof then
		do until rs.eof 
'While not rs.eof
numrec=numrec + 1
%>
        <tr bordercolor="#FFFFFF" bgcolor="#E1F0FF">
          <td width="50" height="28"><div align="center"><span class="style2 style8"><%=numrec%></span></div></td>
          <td width="10%" height="28"><span class="style2 style8"><%=rs("tin")%></span></td>
          <td width="15%" height="28"><span class="style2 style8"><%=rs("name")%></span></td>
          <td width="10%" height="28"><div align="center"><span class="style2 style8"><%=rs("team")%></span></div></td>
          <td width="20%" height="28"><span class="style2 style8"><%=rs("descrip")%></span></td>
          <td width="10%" height="28"><div align="center"><span class="style2 style8"><a href="<%="http://"&rs("web1")%>"><%=rs("web1")%></a></span></div></td>
        </tr>

<%
		rs.MoveNext
		loop
		end if ' is Eof
		'Wend
		'rs.close
		'conn.close
%>
      </table>
    </td>
  </tr>
</table>

</body>
</html>


ผิดพลาดประการใด ขออภัยด้วยนะครับ ในตัวอย่าง ผมเปลี่ยนจาก ที่คุณต้องไปเชื่อมต่อ ฐานข้อมูล ครั้งที่ 1 เป็นการรับค่ามาแสดงได้เลย
และ ทำการหาข้อมูล ในขุ้นตอนที่สองไปเลย เปลี่ยนจาด wend เป็น do loop แทน และเพ่ิม การป้องกัน ข้อมูลไม่มีอยู่จริง ด้วย if not rs.eof ลงไปครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-06-12 11:54:52 By : JDeE
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ช่วยทีครับ ผมดึงข้อมูลไม่ขึ้นเลยครับ ช่วยดู Code ของ Rai.asp ให้ที่ครับว่ามีผิดตรงไหนหรือป่าว
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

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