熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Oracle >> 正文

VB6使用OracleDataControl訪問Oracle

2013-11-13 15:27:45  來源: Oracle 

  系統環境
  操作系統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_names oradb
    Oracle用戶名     user
    戶名密碼       pass
    測試表名       test
    tnsnames       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\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 >

From:http://tw.wingwit.com/Article/program/Oracle/201311/16753.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.