inputbox疑问

Question

我用了一个InputBox$("请输入新的用户名(20字以内)", "提示")显示出来后有确定和取消俩个按扭，
点击确定按扭时．提示框中的内容能写入数据库，但我点击取消按扭时将会写入一个空的字符串到数据库中呢？
Private Sub Command1_Click()
'修改用户名
Dim str As String
Me.Text1.Text = InputBox$("请输入新的用户名(20字以内)", "提示")
Sql = "update 密码表 set 用户名='" & Trim(Me.Text1.Text)
Sql = Sql & "' where 用户名='" & Trim(mdiMain.Tag) & "'"
mdiMain.Caption = Replace(mdiMain.Caption, mdiMain.Tag, Me.Text1.Text)
mdiMain.Tag = Trim(Me.Text1.Text)
dbOperate Sql
End Sub
应该怎么实现当我点击取消按扭时不写入任何内容到数据库中呢？

Answer 1

点击取消按扭时InputBox返回空的字符串
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

Private Sub Command1_Click() 
'修改用户名 
Dim str As String 
Me.Text1.Text = InputBox$("请输入新的用户名(20字以内)", "提示") 
if trim(Me.Text1.Text) = "" then exit sub Sql = "update 密码表 set 用户名='" & Trim(Me.Text1.Text) 
Sql = Sql & "' where 用户名='" & Trim(mdiMain.Tag) & "'" 
mdiMain.Caption = Replace(mdiMain.Caption, mdiMain.Tag, Me.Text1.Text) 
mdiMain.Tag = Trim(Me.Text1.Text) 
dbOperate Sql 
End Sub 

Answer 3

就算我判断了Me.Text1.Text =“”但我是在点击了inputbox上的按扭时才写入数据呢．所以应该要重写取消按扭方法才行吧．我不知道该怎么实现呢？？？？？？？？