访问ORACLE

Question

我已经装了ORACLE9i的客户端,想使用VB通过OraSession访问ORACLE数据库,请高手指教!

Answer 1

以下是我使用OraSession访问ORACLE的例子,需要加入Oracle InProc Server 2.3 Type Library.Option ExplicitDim OraSession As OraSession
Dim OraDatabase As OraDatabase
Dim Oradynaset As Oradynaset
Dim DatabaseName$
Dim Connect$
Dim UserName$
Dim Password$
Dim strsql As StringPrivate Sub Form_Load()    Set OraSession = CreateObject("OracleInProcServer.XOraSession")
    DatabaseName = "ORACLEDB"
    UserName$ = "bluesky35"
    Password$ = "bluesky35"
    Connect$ = UserName$ + "/" + Password$     
    Set OraDatabase = OraSession.OpenDatabase(DatabaseName$, Connect$, 0&)
    strsql = "select * from z0000"
    Set Oradynaset = OraDatabase.CreateDynaset(strsql, 0&)
    MsgBox "open successed", vbOKOnly, "success"End Sub

Answer 2

Public objOraSession  As Object
Public objOraDB As Object    
   Set objOraSession = CreateObject("OracleInProcServer.XOraSession")
    Set objOraDB = objOraSession.OpenDatabase(strServerName, strUserName, 0&)

Answer 3

我一般用ADO访问工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"     CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from table", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 4

在客户端的Net Manager创建访问控制
1.开始菜单中Oracle - OraHome90
2.Configuration and Migration Tools
3.Net Manager
进入后在本地的服务命名中创建新的服务
1.网络服务名(随便的名称)
2.TCP/IP
3.主机名(服务器的IP),端口(1521建议不要修改)
4.Oracle8i或更高版本(安装时的全局数据库名,默认是Orcl)
5.单机测试
然后在VB中用ADO控件中的Oralce连接,再用ADO对象编程
ADO控件中的服务名就是你在Net Manager 中创建的网络服务名