vb6链接oracle常用数据库操作类模块(原创_源码_说明),vb连接oracle db方法

vb连接oracle db方法

'打开数据库

Public Sub OpenOraDB()

On Error GoTo ToExit

OraDB_Open = False

Set OraDB = New ADODB.Connection

OraConstr = "Provider=OraOLEDB.Oracle.1;Password=" & strOraPWD & ";User ID=" & strOraUser & ";Data Source=" & OraDBNetName & ";Persist Security Info=False"

OraDB.CursorLocation = adUseServer

OraDB.Open OraConstr

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

'打开数据集，写入数据

Set OraRS = New ADODB.Recordset

OraRS.ActiveConnection = OraDB

OraRS.CursorLocation = adUseServer

OraRS.LockType = adLockBatchOptimistic

strOraRS = "select * from " & OraDBtablename

OraRS.Open strOraRS, OraDB, adOpenStatic, adLockOptimistic

OraRS.AddNew

OraRS.Fields("PID") = strOraPID

OraRS.Fields("pname") = strName").Value

OraRS.Fields("psex") = strPsex

OraRS.Update

'关闭数据集

OraRS.Close

Set OraRS = Nothing

1.在工程添加 工程-引用-添加 添加Microsoft ActiveX Data OBjects 2.1 Library 这一项

2.添加一个按钮 两个下拉菜单

3.代码如下

Private Sub Command1_Click()

Set Conn = New ADODB.Connection

Set Rs = New ADODB.Recordset

Conn.ConnectionString = "provider=msdaora;user id = hcs2000;password=lgwslgws;data source=HCS2000_192.168.100.200"

Conn.Open

Dim sql As String

sql = "Select * from AA"

Set Rs = Conn.Execute(sql) '建立记录集

Combo1.Clear

Combo2.Clear

Do While Not Rs.EOF

Combo2.AddItem Rs.Fields(0)

Combo1.AddItem Rs.Fields(1)

Rs.MoveNext

Loop

Conn.Close

End Sub

但是我在vb中使用如下语句:

Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.Open "driver={Microsoft ODBC for Oracle};server=databaseracledb;uid=system;pwd=manager;"

但是我在vb中使用如下语句:

Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.Open "driver={Microsoft ODBC for Oracle};server=databaseracledb;uid=system;pwd=manager;"

-------------------------------------------

-----------------------------------------------

使用VB6.0访问ORACLE数据库

发布时间：2006.03.10 02:57 来源：CSDN 作者：

首先要安装ORACLE客户端或服务器端,建好DB以及SERVICE,连接成功后就可以开始了,以下是VB访问ORACLE的代码:

Option Explicit

'以下是一些变量以及参数的定义

'DB的名称

Public Const strdbname = "DBNAME"

'用户名

Public Const strusr = "BLUESKY35"

'密码

Public Const strpwd

= "PASSWORD"

'OraSession

Public OraSession As Object

'OraDatabase

Public OraDB As OraDatabase

'OraDynaset

Public OraDyn As OraD