vb有关的修改问题 - 编程论坛

#2

风吹过b2013-07-17 17:58

看你怎么提交修改的。
如果是用 SQL 命令提交的话，不执行这条SQL 就是了。
如果是绑定控件，修改控件的方式提交，那么重新刷新一下就是了。

#3

奔跑的魔2013-07-18 10:38

我是用ADODC控件来写，如何修改控件方式提交，有没有程序发给我啊，谢谢

#4

风吹过b2013-07-18 12:34

ADODC
修改控件方式，是指你数据显示是用的绑定的控件，如文本框。
然后修改时，是给每个字段赋值。
最后有一个提交更新的命令进行修改。

如果要取消，不提交这个更新命令，而是调用刷新命令。

具体代码我手头上没有，早不用 ADODC控件了。

#5

奔跑的魔2013-07-18 17:06

那大神知不知道，如何在触摸屏中调出VB编的数据库？如果知道我把我的分全部给你，虽然只有60分

#6

奔跑的魔2013-07-18 17:32

我是VB新手
这是我写的程序，修改指令
Private Sub Command4_Click()
Dim rds As New ADODB.Recordset
Dim c As String

rds.Open Adodc1.RecordSource, Adodc1.ConnectionString, adOpenKeyset, adLockOptimistic
rds.AddNew
If c = "" Then

c = MsgBox("确定要修改吗？", vbYesNo, "提示")

rds.Fields(0).Value = Text1.Text
rds.Fields(1).Value = Text2.Text
rds.Fields(2).Value = Text3.Text
rds.Fields(3).Value = Text4.Text
rds.Fields(4).Value = Text5.Text
rds.Fields(5).Value = Text6.Text
rds.Fields(6).Value = Text7.Text
rds.Fields(7).Value = Text8.Text
rds.Fields(8).Value = Text9.Text
Else
rds.update
Adodc1.Refresh

rds.Close
End If
End Sub
我数据修改后，点确定可以，点否时，回不到原先的数据。不知道什么原因？？？
我想实现的是，我鼠标点确定后，文本框为我修改后的值，点否时，文本框中的数据还是原先的。求大神指教

#7

lowxiong2013-07-18 19:08

c = MsgBox("确定要修改吗？", vbYesNo, "提示")
修改为
if MsgBox("确定要修改吗？", vbYesNo, "提示")=vbno then exit sub

#8

奔跑的魔2013-07-18 19:20

我按照你说做了，但是改完后，点确定，不是改后的数据啊，点否，倒是可以做到，恢复改之前的数据

#9

奔跑的魔2013-07-18 19:22

可以了，谢谢你，

#10

奔跑的魔2013-07-18 19:23

那大神知不知道，如何在触摸屏中调出VB编的数据库？如果知道我把我的分全部给你，虽然只有60分