系统环境
操作系统Windows Server
数据库Oracle i R () for NT 企业版
开发工具Visual Basic 中文版
连接方法
一安装 Oracle i R () for NT 企业版
使用典型安装安装目录为D:\Oracle
注安装完Oracle后在D:\Oracle\Ora\BIN\目录下会有oradcocx文件存在VB可使用此控件访问Oracle数据库
二安装 Visual Basic 中文版
把Visual Basic 光盘放入光驱使用典型安装
安装目录为D:\Program Files\Microsoft Visual Studio\VB
三生成Oracle实验记录
连入SQL*Plus以system/manager用户登录
SQL> conn system/manager
创建新的用户如user/pass赋予connectresource权限
SQL> grant connectresource to user identified by pass;
SQL> conn user/pass
SQL> create table test(a numberb char());
SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
SQL> insert into test values(to_char(sysdateyyyymmdd hh:mi:ss));
SQL> commit;
SQL> select * from test;
A B
::
::
::
::
::
D:\Oracle\Ora\network\ADMIN\tnsnamesora中有如下内容
ORADB =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = )(PORT = ))
)
(CONNECT_DATA =
(SERVICE_NAME = oradb)
)
)
总结
Oracle service_namesoradb
Oracle用户名user
户名密码pass
测试表名test
tnsnamesoradb
四启动 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\oradcocx）
VB开发窗口右边的工具箱面板上会出现此控件的图形标志如下图
//jpg >
用鼠标双击此控件（ORADC）再双击MSFlexGrid控件（上图中另一个画红框的）
把它们放到窗体Form上默认名称为ORADC和MSFlexGrid如下图
//jpg >
修改控件ORADC和MSFlexGrid的属性如下图
ORADC的Connect属性user/pass
ORADC的DatabaseName属性oradb
ORADC的RecordSource属性select * from test
MSFlexGrid的DataSource属性ORADC
//jpg >
也可以不设置ORADC控件的任何属性而使用窗体的Form_Load()过程来给ORADC控件赋值
Private Sub Form_Load()
ORADCConnect = user/pass
ORADCDatabaseName = oradb
ORADCRecordSource = select * from test
ORADCRefresh
End Sub
按F运行此程序结果如下图
//jpg >
