VB6中用Oracle數據控件訪問Oracle
系統環境 :
1、操作系統:Windows 2000 Server
2、數據庫: Oracle 8i R2 (8.1.6) for NT 企業版
3、開發工具:Visual Basic 6.0 中文版
連接方法 :
一、安裝 Oracle 8i R2 (8.1.6) for NT 企業版
使用典型安裝,安裝目錄爲D:\Oracle;
注:安裝完Oracle後,在D:\Oracle\Ora81\BIN\目錄下會有oradc.ocx文件存在,VB可使用此控件訪問Oracle數據庫
二、安裝 Visual Basic 6.0 中文版
把Visual Basic 6.0光磐放入光敺,使用典型安裝,
安裝目錄爲D:\Program Files\Microsoft Visual Studio\VB98;
三、生成Oracle實騐記錄
連入SQL*Plus,以system/manager用戶登錄
SQL> conn system/manager
創建新的用戶:如user1/pass1,賦予connect,resource權限。
SQL> grant connect,resource to user1 identified by pass1;
SQL> conn user1/pass1
SQL> create table test(a number,b char(19));
SQL> insert into test values(1,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(2,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(3,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(4,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL> insert into test values(5,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));
SQL>commit;
SQL> select * from test;
A B
---------- -------------------
1 2000-11-28 20:27:33
2 2000-11-28 20:27:36
3 2000-11-28 20:27:38
4 2000-11-28 20:27:40
5 2000-11-28 20:27:52
D:\Oracle\Ora81\network\ADMIN\tnsnames.ora中有如下內容:
ORADB =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 192.1.1.1)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = oradb)
)
)
縂結:
Oracle service_names: oradb
Oracle用戶名: user1
戶名密碼: pass1
測試表名: test
tnsnames: oradb
0條評論