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

Registered : 109,027

HOME > ASP > ASP Forum > Crystal Report 8.5 + ASP แล้วไม่แสดงผลตามที่่ต้องการ และ error ด้วยครับ



 

Crystal Report 8.5 + ASP แล้วไม่แสดงผลตามที่่ต้องการ และ error ด้วยครับ

 



Topic : 106315



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



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




รบกวนหน่อยนะครับ คือผม ได้ code มาจากเว็บ thaicreate นี้แหละครับ แต่พอ run code แล้วขึ้น error ดังนี้ครับ

Error Occurred Reading Records: Server has not yet been opened.


ผมใช้ CR8.5 + ASP Classic , Database : MySQL ครับ

รบกวนช่วยดูและหาวิธีแก้ไขให้ด้วยครับ

โค้ดครับ

Code (ASP)
<%
'sConn_pdt = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=thainjr_employee; UID=root;PASSWORD=123456; OPTION=3" 

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=thainjr_employee; UID=root;PASSWORD=123456; OPTION=3")
'	oConn.open  "thainjr_employee","root" , "123456"

set session("oRs") = Server.CreateObject("ADODB.Recordset")

session("oRs").ActiveConnection = oConn

session("oRs").Open "select * from tbl_employee"

reportname = "test.rpt"

If Not IsObject (session("oApp")) Then                              
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If                                                                


Path = Request.ServerVariables("PATH_TRANSLATED")                     
While (Right(Path, 1) <> "\" And Len(Path) <> 0)                      
iLen = Len(Path) - 1                                                  
Path = Left(Path, iLen)                                               
Wend                                                                  
                                   

If IsObject(session("oRpt")) then
	Set session("oRpt") = nothing
End if

On error resume next

Set session("oRpt") = session("oApp").OpenReport(path & reportname, 1)


If Err.Number <> 0 Then
  Response.Write "Error Occurred creating Report Object: " & Err.Description
  Set Session("oRpt") = nothing
  Set Session("oApp") = nothing
  Session.Abandon
  Response.End
End If



session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False


'selection_formula="{R_holder.holdername}='" & request("h") &"'"
session("oRpt").DiscardSavedData
'session("oRpt").RecordSelectionFormula = cstr(selection_formula)
set Database = session("oRpt").Database
'Instantiates a database collection which references the database(s) used in the report.

set Tables = Database.Tables
'Instantiates a Tables collection which references the Tables of the Database object.

set Table1 = Tables.Item(1)


Table1.SetPrivateData 3, session("oRs") 

On Error Resume Next
session("oRpt").ReadRecords

If Err.Number <> 0 Then                                               
  Response.Write "Error Occurred Reading Records: " & Err.Description
  Set Session("oRpt") = nothing
  Set Session("oApp") = nothing
  Session.Abandon
  Response.End
Else
  If IsObject(session("oPageEngine")) Then                              
  	set session("oPageEngine") = nothing
  End If
  set session("oPageEngine") = session("oRpt").PageEngine
End If
%>
<BODY BGCOLOR=C6C6C6 ONUNLOAD="CallDestroy();" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<object id="CRViewer"
	classid="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
	width=100% height=100%
	CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
	
  <param name="EnableRefreshButton" value=0>
  <param name="EnableGroupTree" value=0>
  <param name="DisplayGroupTree" value=0>
  <param name="EnablePrintButton" value=1>
  <param name="EnableExportButton" value=1>
  <param name="EnableDrillDown" value=1>
  <param name="EnableSearchControl" value=1>
  <param name="EnableAnimationControl" value=0>
  <param name="EnableZoomControl" value=1>
</object>
<script language="VBScript">
<!--
Sub Window_Onload
	On Error Resume Next
	Dim webBroker
	Set webBroker = CreateObject("WebReportBroker.WebReportBroker")
	if ScriptEngineMajorVersion < 2 then
		window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
		CRViewer.ReportName = Location.Protocol + "//" + Location.Host + "/scrsamples/Web Component Server/rptserver.asp"
	else
		Dim webSource
		Set webSource = CreateObject("WebReportSource.WebReportSource")
		webSource.ReportSource = webBroker
		webSource.URL = Location.Protocol + "//" + Location.Host + "/scrsamples/rptserver.asp"
		webSource.PromptOnRefresh = True
		CRViewer.ReportSource = webSource
	end if
	CRViewer.ViewReport
End Sub
-->
</script>
<script language="javascript">
function CallDestroy()
{
	window.open("Cleanup.asp");
}
</script>
<script language="javascript">
window.moveTo(0,0);
//window.resizeTo(screen.availwidth,screen.availheight);
</script>




Tag : ASP, HTML/CSS, VBScript, Crystal Report







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2014-02-26 19:50:59 By : Korakot_titla View : 1772 Reply : 3
 

 

No. 1



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

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

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

Quote:
DRIVER={MySQL ODBC 3.51 Driver};


ตัว MySQL กับ ODBC รันได้ปกติหรือเปล่าครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-02-26 21:28:29 By : mr.win
 


 

No. 2



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



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


ผมลองทดสอบแล้วนะครับ run ได้ปกติครับ และลอง copy code บางส่วนมาลอง run อีกหน้า เพื่อทดสอบ ก็ได้ปกตินะครับ

Code (ASP)
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=thainjr_employee; UID=root;PASSWORD=123456; OPTION=3")
'	oConn.open  "thainjr_employee","root" , "123456"

set session("oRs") = Server.CreateObject("ADODB.Recordset")

session("oRs").ActiveConnection = oConn

session("oRs").Open "select * from tbl_employee"

		while not session("oRs").eof
				response.write session("oRs")("Employee_Code")&"<br>"
		session("oRs").movenext
		wend
		session("oRs").close

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-02-28 16:37:50 By : Korakot_titla
 

 

No. 3



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



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


ผมสงสัยว่าน่าจะเปน code ที่ใช้ในการ connect หรือไม่ครับ การ connect แบบ ODBC ไม่สนับสนุนตัว CR8 หรือป่าว ใครๆ ที่พอทราบรบกวนช่วยแนะนำผมด้วยนะครับ ขอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-03-11 19:15:08 By : Korakot_titla
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Crystal Report 8.5 + ASP แล้วไม่แสดงผลตามที่่ต้องการ และ error ด้วยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

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