vb6 链接Oracle数据库要安装Oracle客户端方法及语句

huwei853

已于 2024-08-22 09:28:34 修改

阅读量223

点赞数 1

文章标签：数据库 oracle

于 2024-08-22 09:23:37 首次发布

本文链接：https://blog.csdn.net/huwei853/article/details/141413135

版权

1 vb6 链oracel 必须安装Oracle 对应客户端程序下载时候要用32位的。

2 在Oracle客户端程序要添加链接名称密码 ip 具体方法网上查询。

Function lianjie1() As Integer
Set CNN1 = New ADODB.Connection
Dim ConnectionString
CNN1.CursorLocation = adUseClient
adUseClient= "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Password=数据库密码;User ID=数据库登录身份名称;Data Source=你在Oracle客户端设置链接名称"  
CNN1.CursorLocation = adUseServer
CNN1.Open ConnectionString 
  If CNN1.State <> adStateOpen Then
  lianjie1 = 0
 MsgBox "连接Oracle数据库失败  ", vbOKOnly + 64, "温馨提示！"
 Else
 lianjie1 = 1
 End If
 End Function

3 安装Oracle客户端后不用进客户端设置，vb 就可以链接我现在用的这个方法。感觉挺方便

 Function lianjie1() As Integer

Set CNN1 = New ADODB.Connection
Dim ConnectionString
CNN1.CursorLocation = adUseClient
    ConnectionString = "Provider=OraOLEDB.Oracle;Password=数据库密码;User ID=数据库登录身名称份;Data Source=" & "(DESCRIPTION =(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.0.253)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=orcl)))" & ";Persist Security Info=True"

'orcl 是 Oracle的数据库名称   

CNN1.CursorLocation = adUseServer
CNN1.Open ConnectionString
  
  If CNN1.State <> adStateOpen Then
  lianjie1 = 0
 MsgBox "连接HIS数据库失败  ", vbOKOnly + 64, "温馨提示！"
 Else
 lianjie1 = 1
 End If

 End Function

VB链接Oracle必须安装Oracle客户端。在局域网使用很头疼啊，必须在每个电脑安装客户端。那个客户端容量还挺大。电脑未知识太多谁能手把手教我。有的电脑还不让安装。不知道有没有不用安装客户端方法。

记录学习历程，每天都在进步。