VB中怎么连接ORACLE数据库？

--先连接数据库，再打开记录集，搞定。

目前成都创新互联已为数千家的企业提供了网站建设、域名、虚拟空间、网站托管运营、企业网站设计、陇西网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

Dim conn_ora As New ADODB.Connection '用于连接ORACLE数据源的连接

conn_ora.ConnectionString = "Provider=MSDAORA.1;Password=111;User ID=system ;Data Source=orcl;Persist Security Info=True"

conn_ora.Open

Dim myrs_ora As New ADODB.Recordset '用于连接ORACLE数据库的记录集

myrs_ora.ActiveConnection = conn_ora.ConnectionString

myrs_ora.Open ("Select * From AAA")

另外,站长团上有产品团购,便宜有保证

VB 连接Oracle

VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。

1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。

2）选Microsoft OLE DB Provider For Oracle，下一步。

3）根据数据链接属性对话框填写所需内容，测试连接。点确定，最终在Adodc属性页获得连接字符串，复制该字符串，即可作为Adodc数据访问控件直接使用，或在代码中用于Adodc控件或ADO数据访问对象。

vb如何连接ORACLE数据库？

利用ADO访问Oracle数据库：

cn.Open "DRIVER={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=用户名;Pwd=密码"

问个VB连接远程Oracle数据库的问题

VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。 1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。 2）选Microsoft OLE DB Provider For Oracle，下一步

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