Private RS As New Recordset
Private Sub Form_Load()
'ORACLE
CONN.Open "Provider=OraOLEDB.Oracle.1;Password=sa;Persist Security Info=True;" & _
"User ID=sa;Data Source=AAA"
RS.CursorLocation = adUseClient
RS.Open "SELECT * FROM TABLE2", CONN, adOpenDynamic, adLockOptimistic
RS.AddNew
RS.Fields("DEMO") = "OK"
RS.Update
Debug.Print "------------------"
Debug.Print RS.Fields("ID")
Debug.Print RS.AbsolutePosition
End Sub
'---------------------------------------------------------------------------
'TABLE2 结构 (ID,DEMO) ID (序列＋触发器) 插入记录前自动递增 DEMO VARCHAR2(10)
'---------------------------------------------------------------------------
'--------------------
'访问 ORACLE 结果
'--------------------
'4
'4
换成SQL SERVER
'CONN.Open "Provider=SQLOLEDB.1;User ID=sa;Password =;Initial Catalog=AAA;Data;" & _
"Source=Server1"
'--------------------
'访问 SQL SERVER 结果
'--------------------
'0
'4
谁能解释这个问题。
