求救！！！vb6如何对oracle操作？

Question

你用什么做？
ado，oo4o还是别的什么？

Answer 1

我选择的是 
rs.open "select * from aa",cn,adOpenDynamic,adLockBatchOptimistic ,adcmdtext
不知对不？

Answer 2

装了ORACLE以后在ORACLE的BIN目录下有一个.OCX控件,用来连接ORACLE数据库的,你可以试一下.

Answer 3

驱动程序不要用Oracle自己提供的，用Microsoft的MS for Oracle

Answer 4

可以连接上就可以用的，  你insert into  看看或者你没有insert into  的劝降

Answer 5

应该是rs.open "select * from aa",cn,adOpenDynamic,adLockOptimistic ,adcmdtext
试试看

Answer 6

应该是：rs.open "select * from aa",cn,adOpenDynamic,adOptimistic ,adcmdtext
试试看

Answer 7

说当前recordset不支持更新，或选定的锁定类型限制的

Answer 8

用sql 语句呀
添加 sql="Insert Into aa values (...)"
cn.execute sql,,adcmdtext

Answer 9

Public Function oracleconnect(sServer As String, sLoginID As String, sPassword As String) As ADODB.Connection
On Error GoTo erroracleconnect
Dim cn As New ADODB.Connection
Dim mystring As String
mystring = "Provider=OraOLEDB.Oracle.1;Password='" & sPassword & "'; " & _
                  "Persist Security Info=True;User ID= " & _
                  " '" & sLoginID & " '" & _
                  ";Data Source=""" & sServer & """"
cn.ConnectionString = mystring
cn.Open
Set oracleconnect = cn
Exit Function
erroracleconnect:
MsgBox Error, vbInformation
End Function

Answer 10

Dim myrec As ADODB.Recordset
dim sql as string
Set G_cn2 = oracleconnect(is_service2, is_sysname, is_syspassword)
sql = "select   name ,deputy,jfz,jfh,...from " & tableuser & ".serv," & tableuser & ".serv_indiv where serv.serv_id=serv_indiv.serv_id " 
myrec.Open sql, G_cn2, adOpenDynamic

接下去的操作（如增加、修改等）与连接到SQLSERVER数据库的操作是一样的。另外请注意，sqlserver与oracle两者的SQL描述差别很大。

Answer 11

在OPEN前 把游标设置为
Rs.CursorLocation = adUseClient