• 系統環境：
  1、操作系統：Windows 2000 Server
  2、數據庫：　Oracle 8i R2 (8.1.6) for NT 企業版
  3、開發工具：Delphi 5 企業版
  

• 連接方法：

            
  
              
         
       一、安裝 Oracle 8i R2 (8.1.6) for NT 企業版　　　　使用典型安裝，安裝目錄為D:\Oracle；二、安裝 Delphi 5 企業版　　　　把Delphi 5光盤放入光驅，使用典型安裝，　　　　安裝目錄為C:\Program Files\Borland\Delphi5；三、生成Oracle實驗記錄　　　　連入SQL*Plus，以system/manager用戶登錄　　　　SQL> conn system/manager　　　　創建新的用戶：如user1/pass1，賦予connect,resource權限?！　　　QL> 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中有如下內容：　　　　test =　　　　  (DESCRIPTION =　　　　    (ADDRESS_LIST =　　　　      (ADDRESS = (PROTOCOL = TCP)(HOST = hlshang)(PORT = 1521))　　　　    )　　　　    (CONNECT_DATA =　　　　      (SERVICE_NAME = oradb)　　　　    )　　　　  )　　　　總結：　　　　Oracle service_names：　oradb　　　　Oracle用戶名：　　　　　user1　　　　戶名密碼：　　　　　　　pass1　　　　測試表名：　　　　　　　test　　　　tnsnames：　　　　　　　test四、配置BDE　　　　開始－＞程序－＞Borland Delphi 5－＞BDE Administrator　　　　1、配置Drivers，修改以下幾個地方，如下圖：　　　　DLL32：　　　　　　SQLORA8.DLL　　　　VENDOR INIT：　　　OCI.DLL　　　　LANGDRIVER：　　　 Oracle SQL WE850　　　　SQLPASSTHRU MODE： SHARED NOAUTOCOMMIT　　　　修改完，按鼠標右鍵，apply（CTRL+A），提交修改　　　　
       　　　　2、配置Database Aliases（數據庫訪問別名），新建一個別名，起名為oracle，如下圖：　　　　
       　　　　
       　　　　3、修改以下幾個地方，如下圖：　　　　SERVER NAME：　　　test　　　　
       　　　　修改完，按鼠標右鍵，apply（CTRL+A），提交修改，退出BDE Administrator　　　　重新打開BDE Administrator，用鼠標左鍵雙擊別名oracle，進行連接測試　　　　
       　　　　輸入用戶名、密碼，按“OK”連接，不能把user1/pass1直接寫在User Name上，要分開寫　　　　如果出現下圖，則說明連接成功　　　　
       五、啟動 Delphi 5 企業版，寫連接 Oracle 的 Delphi 程序　　　　開始－＞程序－＞Borland Delphi 5－＞Delphi 5　　　　File－＞New...－＞Application，如下圖：　　　　
       　　　　Delphi 開發窗口上方的工具箱面板：　　　　
       　　　　打開Data Access控件組，用鼠標雙擊控件Table，再雙擊DataSource控件（上圖中畫紅框的兩個），　　　　把它們放到窗體Form1上，默認名稱為Table1和DataSource1：　　　　
       　　　　打開Data Controls控件組，用鼠標雙擊DBGrid控件（上圖中畫紅框的），　　　　把它放到窗體Form1上，默認名稱為DBGrid1，如下圖：　　　　
       　　　　修改控件Table1、DataSource1、DBGrid1的屬性，如下圖：　　　　Table1的Active屬性：True　　　　Table1的DatabaseName屬性：oracle（即是選BDE名）　　　　Table1的TableName屬性：TEST（這里需要連接oracle）　　　　DataSource1的DataSet屬性：Table1　　　　DBGrid的DataSource屬性：DataSource1　　　　
       ??
       ??
       　　　　按F9，運行此程序，彈出登錄畫面，如下圖：　　　　
       　　　　輸入用戶名、密碼，按“OK”，運行結果如下圖：　　　　
       
      
        
            
          

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3392