13518219792
--先连接数据库，再打开记录集，搞定。
目前成都创新互联已为数千家的企业提供了网站建设、域名、虚拟空间、网站托管运营、企业网站设计、陇西网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
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")
另外,站长团上有产品团购,便宜有保证
VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。
1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。
2）选Microsoft OLE DB Provider For Oracle，下一步。
3）根据数据链接属性对话框填写所需内容，测试连接。点确定，最终在Adodc属性页获得连接字符串，复制该字符串，即可作为Adodc数据访问控件直接使用，或在代码中用于Adodc控件或ADO数据访问对象。
利用ADO访问Oracle数据库：
cn.Open "DRIVER={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=用户名;Pwd=密码"
VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。 1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。 2）选Microsoft OLE DB Provider For 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
