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() '程序段
......
学生时代专业是机械，但是参加工作后，机缘巧合从事了与软件相关的工作，就是对大型工程软件软件做一些二次开发，收获过快乐，收获过辛酸，在一次又一次的得与失中，想找一个地方，找一些人可以慢慢与之分享，与之交流，并期得到帮助或提供帮助！也许你是无意见路过，甚或漂过，但你的注目是我前进的动力，有幸驻足也会让我 ......
文章来源:vb大世界 作者：王国荣
「VB 没有提供这样的功能， 必须呼叫 Windows API」， 当笔者这样回答读者之後，有些读者会要求笔者介绍 Windows API 方面的书籍， 尤其是中文书， 但实际上，目前市面上只看到一本原文书(ZD Press 出版的 Visual Basic 5.0 Programming Guide to Win32 API)， 中文书则未见过， 为什麽没� ......
使用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 ......
