VB6使用OracleDataControl访问Oracle

系统环境 *** 作系统 Windows Server 数据库 　Oracle i R ( ) for NT 企业版 开发工具 Visual Basic 中文版连接方法 一 安装 Oracle i R ( ) for NT 企业版使用典型安装 安装目录为D:\Oracle 注 安装完Oracle后 在D:\Oracle\Ora \BIN\目录下会有oradc ocx文件存在 VB可使用此控件访问Oracle数据库二 安装 Visual Basic 中文版把Visual Basic 光盘放入光驱 使用典型安装 安装目录为D:\Program Files\Microsoft Visual Studio\VB 三 生成Oracle实验记录连入SQL*Plus 以system/manager用户登录SQL>conn system/manager创建新的用户 如user /pass 赋予connect resource权限 SQL>grant connect resource to user identified by pass SQL>conn user /pass SQL>create table test(a number b char( ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ))SQL>mitSQL>select * from testA B : : : : : : : : : : D:\Oracle\Ora \neork\ADMIN\tnsnames ora中有如下内容 ORADB = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = )(PORT = )) ) (CONNECT_DATA = (SERVICE_NAME = oradb) ) )总结 Oracle service_names 　oradbOracle用户名 　user 户名密码 　pass 测试表名 　testtnsnames 　oradb四 启动 Visual Basic 写连接Oracle的VB程序开始－＞程序－＞Microsoft Visual Basic 中文版－＞Microsoft Visual Basic 中文版文件－＞新建工程－＞VB 企业版控件 如下图 　 / / jpg >添加访问Oracle的部件（CTRL+T） 工程－＞部件－＞Oracle Data Control 如下图 　 / / jpg >选中此控件（Oracle Data Control） 单击 确定 （此控件对应的就是D:\Oracle\Ora \BIN\oradc ocx）VB开发窗口右边的工具箱面板上会出现此控件的图形标志 如下图 　 / / jpg >用鼠标双击此控件（ORADC） 再双击MSFlexGrid控件（上图中另一个画红框的） 把它们放到窗体Form 上 默认名称为ORADC 和MSFlexGrid 如下图 　 / / jpg >修改控件ORADC 和MSFlexGrid 的属性 如下图 ORADC 的Connect属性 user /pass ORADC 的DatabaseName属性 oradbORADC 的RecordSource属性 select * from testMSFlexGrid 的DataSource属性 ORADC 　 / / jpg >也可以不设置ORADC 控件的任何属性 而使用窗体的Form_Load()过程来给ORADC 控件赋值Private Sub Form_Load() ORADC Connect = user /pass ORADC DatabaseName = oradb ORADC RecordSource = select * from test ORADC RefreshEnd Sub按F 运行此程序 结果如下图 / / jpg >lishixinzhi/Article/program/Oracle/201311/16753

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。

1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。

2）选Microsoft OLE DB Provider For Oracle，下一步。

3）根据数据链接属性对话框填写所需内容，测试连接。点确定，最终在Adodc属性页获得连接字符串，复制该字符串，即可作为Adodc数据访问控件直接使用，或在代码中用于Adodc控件或ADO数据访问对象。

---