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、选择【否】→下�
相关文档：
Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
......
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()
......
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()
......
添加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 ......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......
