YC3354
2018-01-24 08:25
采纳率: 62.5%
浏览 1.9k

vb执行update 語句后,数据库数据无变化

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
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

5条回答 默认 最新

  • 已采纳

    b=' " 这里多了个空格

     StrReset = "update filedata set a='1' where  b='" & Trim(Txt.Text) & "'"
    
    已采纳该答案
    打赏 评论
  • mango_love 2018-01-24 08:26

    这条sql能在数据库执行有效过吗

    打赏 评论
  • SeanLam111 2018-01-24 10:59

    检查下sql语句 而且记得要commit提交事务

    打赏 评论
  • 李所长 2018-01-27 05:37

    需要用refresh更新操作或移动数据库记录指针。

    打赏 评论
  • hhx00123 2018-01-24 08:46

    记得 commit;

    1 打赏 评论

相关推荐 更多相似问题