Crystal report [資料庫廠商代碼: 4063 ]

檔案 Report 24560_3064_{25683DD8-05D0-4ADE-9BB6-5B76420E328B}.rpt 錯誤: 無法從資料庫擷取資料。 細目: [資料庫廠商代碼: 4063 ]

解決方法︰

ORA-4063 means Table/View has errors.

How to enable remote connections in SQL Server ?

Error as below:

check firewall, sql server allow remote , enable TCP/IP

then Enable SQL browser

Make sure below service is running as below:





具有進階安全性的 Windows 防火牆規則評估順序

在window 中的防火牆，規則原來驗證是有順序的，就是以下的順序了︰

Windows Service Hardening。這種內建規則會限制服務，使其無法以本身設計以外的方式建立連線。服務限制會設定為讓 Windows 服務只能用指定的方式通訊 (例如，允許的流量可能被限制到指定的連接埠)。

連線安全性規則。此類型的規則定義電腦使用 IPsec 進行驗證的方式與時機。連線安全性規則也可以要求加密，如此有助於保持資料隱密。連線安全性規則通常用於建立伺服器及網域隔離，以及強制執行 NAP 原則。

已驗證的略過規則。此類型的規則即使在連入防火牆規則會封鎖流量時，也允許指定電腦或使用者的連線。這個規則會要求來自授權電腦的網路流量要由 IPsec 驗證，以便可以確認識別身分。例如，可以只允許來自特定電腦的遠端防火牆系統管理，方法是為那些電腦建立驗證略過規則，或是啟用由支援服務中心進行遠端協助的支援。這種規則有時用在企業環境中，允許「受信任」的網路流量分析器存取電腦，以協助疑難排解連線問題。略過規則會列出允許略過規則的電腦，否則便會封鎖網路流量。由於執行網路分析的電腦會驗證，並識別為位於略過規則的「允許」清單上，因此來自該電腦的驗證流量便會被允許通過防火牆。

封鎖規則。此類型的規則明確地封鎖特定類型的連入或連出流量。因為這些規則會在允許規則之前先經過評估，所以它們的優先順序較高。網路流量若同時符合使用中的封鎖規則及使用中的允許規則，便會遭到封鎖。

允許規則。此類型的規則明確地允許特定類型的連入或連出流量。

預設規則。這些規則定義當連線沒有符合任何其他規則時，要採取的動作。輸入預設值會封鎖連線，而輸出預設值則會允許連線。可以在 Windows 防火牆內容中，針對每個設定檔變更預設值。

參考 : https://technet.microsoft.com/zh-tw/library/cc755191(v=ws.10).aspx

CrystalDecisions.CrystalReports.Engine.LoadSaveReportException: 報表檔案路徑無效

問題︰
CrystalDecisions.CrystalReports.Engine.LoadSaveReportException: 報表檔案路徑無效。

環境︰
Window 7 32bit
IIS 7.5
.Net 4.0 / VB.NET
Microsoft Visual Studio 2013
SAP Crystal Reports runtime engine for .Net Framework (32-bit) 13.0.12.1494
SAP Crystal Reports, version for Microsoft Visual Studio 13.0.12.1494

解決方法︰

原來係Crystal report source 的參數問題︰刪除了EnableCaching="False" Crystral report 就正常顯示了。非常奇怪。

       EnableCaching="False"
>
           
           
       
跟進︰
如果刪除了EnableCaching="False" ，那麼用甚麼的參數 不儲存暫存??

  VB.NET安装部署

VB.NET安装部署一).创建部署项目

1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。

2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。

3. 单击“确定”关闭对话框。

4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。

5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。

VB.NET安装部署二).将 主程序 项目的输出添加到部署项目中

1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。

2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。

3. 单击“确定”关闭对话框。

4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。

VB.NET安装部署三).创建安装程序类

1. 在“文件”菜单上指向“新建”，然后选择“项目”。

2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。

3. 单击“打开”关闭对话框。

4. 从“项目”菜单中选择“添加新项”。

5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。

6. 单击“确定”关闭对话框。

7. 详细代码附后。

VB.NET安装部署四).创建自定义安装对话框

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。

2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。

3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。

4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。

5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。

6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.

7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库

8. 选择 Edit1Label 属性并键入：数据库名称:

9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1

10. 选择 Edit1Value 属性并键入：dbservers

11. 选择 Edit2Label 属性并键入：服务器名:

12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2

13. 选择 Edit2Value 属性并键入：(local)

14. 选择 Edit3Label 属性并键入：用户名:

15. 选择 Edit3Value 属性并键入：sa

16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3

17. 选择 Edit4Label 属性并键入：密码:

18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4

19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true

VB.NET安装部署五).创建自定义操作

1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。

2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。

3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。

4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。

5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。

附:/targetdir="[TARGETDIR]\"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。

VB.NET安装部署六).添加文件

1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库->所有工作->备份数据库,备份成一个文件，取名为DB.dat)

2. 将安装文件LisenceFile.rtf添加到“setup1”项目

3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件

4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）

Crystal_Managed2003.msm  （如果有水晶报表）  
dotnetfxredist_x86.msm  （.net一定是必须的）  
... （如果有引用其他的dll） 

5.如果使用了水晶报表，手动加入要包含的文件：项目-->添加-->合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:\Program Files\Common Files\Merge Modules\ 下，*为必要的

具体功能如下：
（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）

* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）

* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）

* Crystal_regwiz2003.msm
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）

VC_User_CRT71_RTL_X86_---.msm  
VC_User_STL71_RTL_X86_---.msm 

(很多人经常出现查询错误，不妨加上这个)

6.打开解决方案-->右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）

VB.NET安装部署七).打包時加入卸载功能：

方法一:

1.在打包項目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)

2.在文件系統視圖中選擇應用程序文件夾,在msiexec.exe上按右鍵,選擇創建快捷方式,重命名快捷方式為"卸载".

3.更改此快捷方式的Arguments 为"/x {產品id}",產品id的值為打包項目的ProductCode屬性值.

方法二:(推荐)

1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到

2.用VS.net建立一个新的控制台程序uninst.exe文件

'power by: landlordh  
'for 2000,xp,2003  
Module uninstall  
Sub Main()  
Dim myProcess As Process = New Process  
If System.Environment.OSVersion. ToString.IndexOf("NT 5") Then  
myProcess.Start("msiexec", "/X {2B65D4A9-C146-4808-AB4B-321F B0779559}") '改为自己的ProductCode  
End If  
myProcess.Close()  
End Sub  
End Module 

3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

VB.NET安装部署八).打包時加入.net环境和MDAC功能：

把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.使用 Setup 项目安装 MDAC

1.确保 Visual Studio .NET 框架引导程序插件已安装。

2.在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。

3.选择 Requirements on Target Machine（搜索目标计算机） 节点。从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。

4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，选择 RegKey 属性，并键入 Software\Microsoft\DataAccess。

5.选择 Root 属性，并选择 vsdrrHKLM。

6.选择 Value 属性，并键入 FullInstallVer。

7.选择 Property 属性，并键入 MDACSEARCH。

8.在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH>="2.6"。

9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。

10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。

VBA 中 Excel Sheet 在指定 Printer中 列印

Public Sub userDefinePrint(sh As Worksheet, sharePath As String, shareName As String, printerName As String)
TryAgain:
On Error Resume Next

Dim printerFullName As String
printerFullName = NetworkPrinter(sharePath & "\" & printerName)


ActivePrinter = printerFullName

If Err.Number <> 0 Then
PrintServer = sharePath & "\" & shareName

Set objNetwork = CreateObject("Wscript.Network")
objNetwork.AddWindowsPrinterConnection (PrintServer)
GoTo TryAgain
End If

With sh.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PaperSize = 234
End With

If Err.Number <> 0 Then
sh.PrintOut Copies:=1, Preview:=False, ActivePrinter:=printerFullName, Collate:=True
Else
sh.PrintOut Copies:=1, Preview:=False, ActivePrinter:=printerFullName, Collate:=True
End If


End Sub

Public Function NetworkPrinter(ByVal myprinter As String)
On Error Resume Next
Dim NetWork As Variant
Dim X As Integer
Dim Prt_On As String
Prt_On = " on "
'/// Define NetWork Array \\\
NetWork = Array("Ne00:", "Ne01:", "Ne02:", "Ne03:", "Ne04:", _
"Ne05:", "Ne06:", "Ne07:", "Ne08:", _
"Ne09:", "Ne10:", "Ne11:", "Ne12:", _
"Ne13:", "Ne14:", "Ne15:", "Ne16:", _
"LPT1:", "LPT2:", "File:", "SMC100:")
'Setup printer to Print
X = 0
TryAgain:
On Error Resume Next
'Printer
Application.ActivePrinter = myprinter & Prt_On & NetWork(X)
If Err.Number <> 0 And X < 16 Then     X = X + 1     GoTo TryAgain   ElseIf Err.Number <> 0 And X > 15 Then
GoTo PrtError
End If
On Error GoTo 0
NetworkPrinter = myprinter & Prt_On & NetWork(X)
errorExit:
Exit Function
PrtError:
'no printer found
NetworkPrinter = ""
Resume errorExit
End Function

Hiding and Showing Forms in C# - Techotopia

Hiding and Showing Forms in C# - Techotopia: "- Sent using Google Toolbar"