vb 有如下代码,连接的Oracle数据库。程序执行无报错,但是数据库中数据表无变化!!!
求解?
Public adocn As New ADODB.Connection
Public Sub Adocn_Connection()
Set adocn = New ADODB.Connection
adocn.CursorLocation = adUseClient
adocn.ConnectionString ="Provider=MSDAORA.1;Password=123456;User ID=ABC;Data Source=dcqs;Persist Security Info=True"
adocn.Open
End Sub
Private Sub CmdReset_Click()
Dim StrReset As String
Dim RsReset As New ADODB.Recordset
Call Adocn_Connection
RsReset.CursorLocation = adUseClient
StrReset = "update filedata set a='1' where b=' " & Trim(Txt.Text) & "'"
RsReset.Open StrReset, adocn, adOpenDynamic, adLockBatchOptimistic '.Execute(StrReset)
End Sub