我们曾是特种兵 下载:VB如何连接ORACLE数据库
来源:百度文库 编辑:偶看新闻 时间:2024/05/10 06:45:14
VB如何连接ORACLE数据库
'打开数据库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
'打开数据库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
使用ORACLE如何连接数据库?
oracle客户端如何连接数据库
VB如何连接数据库?
如何往oracle中导库,和连接数据库
如何在ASP中连接Oracle数据库
delphi7如何连接oracle,mssql server,access及excel数据库?
delphi7如何连接oracle,mssql server,access及excel数据库?
如何卸载oracle数据库
如何下载Oracle数据库!
连接oracle数据库的问题
jsp连接数据库oracle 出错
oci驱动连接oracle数据库
如何动态连接数据库?(VB方面)
用vb做前台如何连接数据库
如何在VB中连接access数据库
如何在vb里连接上数据库
vb如何连接远程Access数据库
怎样用VB连接ORACLE数据库,并将查询结果生成为文本文件保存在本地?
VB数据库怎么连接数据库
用VB连接数据库
vb连接SQL数据库
VB连接数据库
vb ado连接数据库
VB连接Access数据库