oracle客户端配置与使用（vb）
使用oracle数据库有两种方法：
1、在客户端机器上安装oracle的客户端软件。唯一的例外就是java连接数据库的时候，可以用jdbc thin模式，不用装oracle的客户端软件。
2、如果你在机器上装了oracle数据库服务器，就不需要在单独在该机器上安装oracle客户端了，因为装oracle数据库的时候会自动安装oracle客户端
如果想用本地的计算机访问或连接远程的oracle数据库，那么就必须在本地的计算机上安装oracle客户端软件。
在安装客户端前，确保在服务器端：
1．保证listener服务已经启动。
2．保证数据库已经启动。
安装完客户端软件后，要对客户端软件下的配置和移植工具----》net configuration assianstant进行配置，按照提示：
1、图形界面修改（最好用这种方法修改）
可以在客户端机器上使用oracle Net Configuration Assistant或oracle Net Manager图形配置工具对客户端进行配置，该配置工具实际上修改tnsnames.ora文件。
下面是使用 oracle Net Configuration Assistant工具对客户端进行配置的，设置完成之后net manage中也作了相应的修改。步骤如下：
1、打开cmd输入netca或用菜单选择 Net Configuration Assistant。
2、选择【本地net服务名配置】→下一步。
3、选择【添加】→下一步。
4、在【服务名】中输入你想要连接的服务器上的oracle服务的名字（远程服务器上数据库的名字）→下一步。
5、选择【tcp】→下一步。
6、在【主机名】中输入你想要连接的服务器ip，端口号不变→下一步。
7、选择【进行测试】→下一步。（当然你也可以选择不测试）
※1测试如果不通过，点击【更改登录】输入一个肯定能登入的【用户名】和【口令】→确定，出现【正在连接...测试成功。】表明测试成功。
※2测试不通过的话，点【上一步】确认你写的【服务名】和【主机名】，确认无误的情况下，确认你要连接的服务器oracle监听服务已经打开。
8、在【net服务名中】输入你想要使用的本地的服务名（本地使用的服务名称即当程序链接数据库所使用的数据库名称或数据库别名、网络服务名）→下一步。
※就是【sqlplus user/passwd @本地服务名】。
9、选择【否】→下�
相关文档：
通过调用CreateDataSetfromXml取得XML数据
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""
clsPublic ......
ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言，默认的内置开发语言是VBScript，由于ASP和微软Windows系列操作系统的结合非常的好，使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。
他有着简单易学，方便快速开发的种种优点，但是他也有着致命的弱点，就是他是脚本语言解释执行的，速度会受到 ......
在很多 VB 的资料库书籍中，都会很完整的提到：如何由其他种类的文件中将资料导入资料库，但是却很少有书提到：如何将资料库中的资料，导出到各种不同的文件类型的文件中，连 VB 的 Help 中也是这样！
或许是大家都认为资料库主题的重点是在资料库本身吧！
但是，在实际的资料库程序运用中，却常常需要将资料库导出到各种 ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
VB显示透明FLASH效果
演示效果：
代码如下：
公共声明区域
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......
