vb6.0 连接oracle 数据库

'Ctrl+t找Microsoft DataGrid Control

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object

Dim cn As New ADODBConnection

Dim rst As New ADODBRecordset

Dim SqlStr As String

cnOpen "Provider=MicrosoftJetOLEDB40;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;"

SqlStr = "Select From 某个表"

rstCursorLocation = adUseClient

rstOpen SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

Set DataGrid1DataSource = rst '给DataGrid修改数据源

Global oOraSess As Object

Global oOraDb As OraDatabase

Global Const ORADB_ORAMODE = &H1&

Set oOraSess = CreateObject("OracleInProcServerXOraSession")

Set oOraDb = oOraSessOpenDatabase(DSN, UID & "/" & PWD, ORADB_ORAMODE)

这样也可以

db = "Provider=MSDAORA1;Password=chun;User ID=chun;Data Source=chun;Persist Security Info=True"

connCursorLocation = adUseClient

connOpen db

'chun 是数据库名 密码 连接数据源

在webconfig中配置：

<connectionStrings>

<add name="conn" connectionString ="Provider=服务器名;Data Source=数据库名;User ID=用户名;Password=密码;"/>

</connectionStrings>

’连接Oracle

Dim strConnect As String = SystemWebConfigurationWebConfigurationManagerConnectionStrings("conn")ToString()

Dim conn As OleDbOleDbConnection = New SystemDataOleDbOleDbConnection(strConnect)

’返回数据

Public Function getTable(ByVal sql)

connOpen()

Dim comm As OleDbOleDbCommand = New OleDbOleDbCommand(sql, conn)

Dim da As OleDbOleDbDataAdapter = New OleDbOleDbDataAdapter(comm)

Dim dt As SystemDataDataTable = New SystemDataDataTable()

daFill(dt)

connClose()

Return dt

End Function

’返回受影响的行数

Public Function impactDate(ByVal sql)

connOpen()

Dim comm As OleDbOleDbCommand = New OleDbOleDbCommand(sql, conn)

Dim i As Integer = commExecuteNonQuery

Return i

End Function

Oracle 9i Release 2 客户端在安装到Windows的NTFS分区下时的安全认证设置不正确，引起本机的Authenticated Users用户无法看到ORACLE_HOME目录下的内容; 这导致在ASPNET以Authenticated Users权限使用SystemDataOracleClient连接Oracle数据库时报出以上错误。

解决

要解决以上问题，只要给Authenticated Users 组加上访问Oracle Home目录的权限即可

1、以Administrator权限登录Windows

2、启动Window 资源浏览器找到ORACLE_HOME目录，如C:\Oracle\ora92

3、右键d出菜单，选择该目录共享与安全（Win2000下要点击属性）

4、点击 “安全” 页签

5、在组和用户名称列表中点击“Authenticated Users” 项

6、在该用户的权限列表中，将“读取和运行”的选择框置为不选中状态

7、再次点击“读取和运行”的选择框，将其设置为选中状态

8、点击“高级”按钮并在权限项目中确定“Authenticated Users” 是否拥有“读取并运行”权限并应用于“该文件夹，及子文件夹和文件” 如果不是，双击这样，并确保权限可以“应用于” “该文件夹，及子文件夹和文件” 该项非常重要你一定要核查

9、点击“确定” 按钮

10、重启动, 以使得所有的修改生效

以上就是关于vb6.0 连接oracle 数据库全部的内容，包括:vb6.0 连接oracle 数据库、vb连接Oracle数据库、vb.net 如何与oracle数据库连接等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！