Dim cnDB As New ADODB.Connection
Dim rsDB As New ADODB.Recordset
Dim cmdDB As New ADODB.Command
Dim ConnString As String
ConnString = "Provider=OraOLEDB.Oracle.1;Password=pass;Persist Security Info=True;User ID=user"
cnDB.ConnectionString = ConnString
cnDB.Open
Set cmdDB.ActiveConnection = cnDB
cmdDB.CommandText = "SELECT field from table"
rsDB.CursorLocation = adUseServer
rsDB.Open cmdDB, , adOpenStatic, adLockBatchOptimistic
rsDB.AddNew
rsDB.Fields("field") = "dddd"
rsDB.Update
rsDB.Close
rsDB.Close
源代码运行没有问题,但是数据库没有添加纪录!!
为什么???
oracle运行正常!
Dim rsDB As New ADODB.Recordset
Dim cmdDB As New ADODB.Command
Dim ConnString As String
ConnString = "Provider=OraOLEDB.Oracle.1;Password=pass;Persist Security Info=True;User ID=user"
cnDB.ConnectionString = ConnString
cnDB.Open
Set cmdDB.ActiveConnection = cnDB
cmdDB.CommandText = "SELECT field from table"
rsDB.CursorLocation = adUseServer
rsDB.Open cmdDB, , adOpenStatic, adLockBatchOptimistic
rsDB.AddNew
rsDB.Fields("field") = "dddd"
rsDB.Update
rsDB.Close
rsDB.Close
源代码运行没有问题,但是数据库没有添加纪录!!
为什么???
oracle运行正常!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货