# Re: VB and Oracle

Posted by li on October 09, 1998 at 09:46:35:

In Reply to: VB and Oracle posted by 孤鹰 on October 08, 1998 at 10:46:37:

:来 , 给你 sample :
: 1. 首先 , 在 模组内加入以下
: Public OraSession As Object
: Public OraDatabase As Object
: Public OraDynaset As Object
: Public SQL$
: Public MyDyn As Object
: 2. 在主form内加入以下
: UserName = User ID
: Password = Password
: DatabaseName = HOST IP Address
: Connect = UserName + "/" + Password
: Set OraSession = _
: CreateObject("OracleInProcServer.XOraSession")
: Set OraDatabase = _
: OraSession.DbOpenDatabase(DatabaseName, Connect, 0&)
: 2. 在使用的 Form 中加入 ORADC1,DBGrid1 物件
: 3. 在处理时参照以下
: SQL$ = SQL Language
: Set MyDyn = OraDatabase.DbCreateDynaset(SQL$, 0&)
: Set ORADC1.Recordset = MyDyn
: 4. 每次处理完要更新 DBGrid1 时 , 重覆上述程序3
: 嗨！各位VB同志们，大家好：
: 　　小弟因工作的关系，碰到了一个问题，却百思不得其解！
: 烦请善心人士代为解答！感激不尽！
: 问题：
: 　　VB是否能使用Oracle的资料库呢？由于我从未使用过Oracle
: 的资料库，所以不知道它是否跟DBASE、ACCESS一样，能用data
: control控制，或是使用DAO摸式。也查过data control　的属性
: ，好像没有支援的样子！这个问题，是因为公司需使用ORACLE做
: 后端资料库，但就因为我从未玩过ORACLE资料库，加上本身使用
: 的程式语言是ＶＢ，所以才会有这个问题。烦请指教！

1. 上述程式是透过 DAO 物件处理 , 不经过 ODBC
: 2. 系统于启动连接 ORACLE 时会需要 "一段时间" ...
: 3. 如果 ORADC1物件资料没有时常在 ACCESS 时 ,
: ORACLE 会自动中断连接 , 直到下一次有资料需求时 ,
: 才会自动 "重新连接" (又需要 "一段时间" ...)

Follow Ups: