陕西汉中市天气预报:vb 高手~请进来看看

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 06:44:24

Private Sub Command1_Click()
On Error GoTo err_en
Dim db_set
Dim str
oldnum = Text1.Text
newnum = Text2.Text
Set mywksp = Workspaces(0)
Set mydb = mywksp.OpenDatabase("database.mdb")
Sqlstr = "select count(*) From 表3 where 表3.房间号= '" & oldname & "'"
Set db_set = mydb.OpenRecordset(Sqlstr)
If db_set.Fields(0) = 0 Then
str = MsgBox(" 客房号错误", vbOKOnly)
Exit Sub
Else
Sqlstr = "update 表3 set 房间号='" & newnum & "' where 房间号 = '" & oldnum & "'"
mydb.Execute Sqlstr
End If
Text1.Text = ""
Text2.Text = ""
err_en:
End Sub

这段代码错在哪里
那个SQL语句没有执行，我按访按钮也没有反应

是因为你写了
On Error GoTo err_en
所以当程序有错误的时候就跳转到
err_en:
End Sub

也就是最后了
所以你把这两句去了看看提示什么错误再进行修改或者告诉我们错误是什么让我们帮你看看

哦我看好象是9行错了你是不是想写oldnum啊

vb 高手~请进来看看 VB高手来看看高手请进来看看！！高手请进来看看高手请进来看看高手请进来看看高手请进来看看高手们请进来看看英语翻译，高手请进来看看高手们请进来看看