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、选择【否】→下�
相关文档：
VB中 Replace 函数
描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数：
参数 描述
expression 必选。字符串表达式，包含要替换的子字符串。
find 必选。被搜索的子字符串。
......
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 ......
主窗体代码：
'打开网页
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'复制文件
Private Declare Fu ......
就这么一个函数就解决了那位仁兄3天多的工作
唉~！真被一个函数玩死了
这里顺便帖出来吧
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Microsoft.VisualBasic.Shell( ......
Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String) As Boolean
Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" (ByVal lpszUrlName ......
