• 网站首页
• 网站建设
• 短视频
• 网站推广
• 网站模板
• 客户案例
• 资讯动态
• 关于我们

请教vb如何连接oracle数据库_CSS学习

当前位置：网站建设 > 技术支持

请教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

http://topic.csdn.net/t/20050508/19/3990155.html

版权说明：
本网站凡注明“广州京杭 原创”的皆为本站原创文章，如需转载请注明出处！
本网转载皆注明出处，遵循行业规范，如发现作品内容版权或其它问题的，请与我们联系处理！
欢迎扫描右侧微信二维码与我们联系。