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、选择【否】→下�
相关文档：
转自：http://www.52arm.com/Article_Show.asp?ArticleID=186
作者：weidian ---本站原创 点击数：4721 发表时间：2008-5-7 编辑：sanzang
Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的 ......
这段时间在移植项目的过程中，起初我想判断一个字符串中是否存在某字符（串），直接的使用方法是用instr（start，string1，string2，VB compare），但经过分析在VB中可以只用一下方法来判断！
1.常用的INStr方法
Function InStr([Start], [String1], [String2], [Compare A ......
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()
......
使用c#语言在.net平台生成的dll是基于MSIL的二进制代码，通常情况下是无法被native的语言和程序调用的（例如vb，vc，delphi）。但是一般来说windows上native的程序都是可以直接使用com对象的。通过.net平台提供的一些工具，可以为其伪造一个com接口并注册到系统中。此时，可以在native的程序里，通过这个伪com接口来实现此. ......
添加2个text，一个command，一个 WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
