vb无客户端连接oracle数据库的解决办法

最新推荐文章于 2024-04-20 18:58:30 发布

孤独剑_LPZ

最新推荐文章于 2024-04-20 18:58:30 发布

阅读量4.4k

点赞数

分类专栏： VB编程技术文章标签： oracle 数据库 vb library 数据库服务器 security

VB编程技术专栏收录该内容

41 篇文章 2 订阅

订阅专栏

油田普遍用的是oracle数据库，我们在给油田用户编制程序的时候如果用VB编码，程序编好后，还需要在用户的机器上安装一个oracle数据库客户端，以便能连接到oracle服务器。这无疑会增加用户不少工作量，降低软件的友好性。经过网上搜索，找到一些替代办法，方法如下：

一、创建VB工程，引用两个dll，一个是oraoledb 1.0 type library；另一个是MS ado 2.8 library。程序代码如下：

Dim OraDB As ADODB.Connection
Public Sub OpenOraDB()
    On Error GoTo ToExit
    OraDB_Open = False
    Set OraDB = New ADODB.Connection
    ConnectionString = "Provider=OraOLEDB.Oracle;Password=cygck;User ID=cygck;Data Source=""(DESCRIPTION =(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=121.251.249.191)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=ora9i)))"";Persist Security Info=True"
    OraDB.CursorLocation = adUseServer

    OraDB.Open ConnectionString
    OraDB_Open = True

    Exit Sub
ToExit:
    MsgBox "连接数据库服务器错误，您可以在网络正常后继续使用。", vbInformation, "错误信息"
    OraDB_Open = False
End Sub

'关闭数据库

Public Sub CloseOraDB()
    If OraDB_Open = True Then
    If (OraDB.State = adStateOpen) Then
    OraDB.Close
    Set OraDB = Nothing
    OraDB_Open = False
    End If
    End If
End Sub
Private Sub Command1_Click()

'打开数据集，写入数据
OpenOraDB
Set OraRS = New ADODB.Recordset
OraRS.ActiveConnection = OraDB
OraRS.CursorLocation = adUseServer
OraRS.LockType = adLockBatchOptimistic
strOraRS = "select count(*) from daa01"
'OraRS.Open strOraRS, OraDB, adOpenStatic, adLockOptimistic
Set OraRS = OraDB.Execute(strOraRS)
MsgBox (OraRS(0))
'关闭数据集
OraRS.Close
Set OraRS = Nothing
End Sub

二，打包。采用Setup Factory 7.0打包。将以下文件打包。其中oraoledb.dll在文件属性-高级中选择“注册类型库”，保证在安装后能够regsvr32该文件。

D:/项目/无客户端连接oracle/ora9 的目录

2009-08-25 16:06    <DIR>          .
2009-08-25 16:06    <DIR>          ..
2001-09-12 10:52         1,329,424 oraclient9.dll
2001-09-12 10:52           497,936 oracommon9.dll
2001-08-09 12:09           603,920 ORACORE9.DLL
2001-09-11 22:29         1,630,992 orageneric9.dll
2001-08-17 09:31           123,664 oraldapclnt9.dll
2001-09-10 17:23           740,112 ORAN9.DLL
2001-08-15 12:00             5,392 ORANCDS9.DLL
2001-09-10 17:23            58,640 orancrypt9.dll
2001-09-10 17:23             7,440 oranhost9.dll
2001-09-09 21:09           162,064 ORANL9.DLL
2001-08-22 12:23            50,960 oranldap9.dll
2001-08-17 10:26           412,944 ORANLS9.DLL
2001-08-06 20:19            10,512 ORANMS.DLL
2001-08-06 20:19            50,960 ORANMSP.DLL
2001-08-22 12:19           546,576 orannzsbb9.dll
2001-09-10 17:23             5,904 oranoname9.dll
2001-09-10 17:23           211,216 Oranro9.dll
2001-09-10 17:23             7,952 ORANTNS9.DLL
2001-08-17 19:39           385,024 OraOLEDB.dll
2001-08-17 19:39           118,784 OraOLEDBgmr.dll
2001-08-17 19:39            32,768 OraOLEDBpus.dll
2001-08-17 19:39           126,976 OraOLEDBrst.dll
2001-08-17 19:39            24,576 OraOLEDButl.dll
2001-08-17 19:39            24,576 OraOLEDBzhs.dll
2001-08-14 20:20         2,102,032 ORAPLS9.DLL
2001-06-20 18:00            13,072 ORASLAX9.DLL
2001-08-17 10:26            48,400 ORASNLS9.DLL
2001-08-14 12:28           456,464 ORASQL9.DLL
2001-08-08 07:31           248,592 oratrace9.dll
2001-08-17 10:26            43,280 ORAUNLS9.DLL
2001-08-14 21:19             5,904 ORAVSN9.DLL
2001-09-12 10:52             7,440 Orawtc9.dll
              32 个文件     10,094,496 字节
               2 个目录 5,160,677,376 可用字节