YC3354
YC3354
采纳率62.5%
2018-01-24 08:25

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

10
已采纳

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条回答

  • showbo GoCityPass新加坡曼谷通票 3年前

    b=' " 这里多了个空格

     StrReset = "update filedata set a='1' where  b='" & Trim(Txt.Text) & "'"
    
    点赞 9 评论 复制链接分享
  • lyl_420819 李所长 3年前

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

    点赞 评论 复制链接分享
  • SeanLam111 SeanLam111 3年前

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

    点赞 评论 复制链接分享
  • mango_love mango_love 3年前

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

    点赞 评论 复制链接分享
  • hhx00123 hhx00123 3年前

    记得 commit;

    点赞 评论 复制链接分享