如何给一大段 VB 程序一次性加上注释符号

1、首先是在excle软件中找到“开发工具”-》Visual Basic。

2、进入代码区。

3、选中要注释的一段代码。

4、然后在顶部找到工具栏。

5、然后右键单击，选择档袜“编辑”。

6、然后找到注释代码块。

7、点派手击之后，我们发现我们刚才选中的代码块就被注释掉尘蠢嫌了。

MsgBox "用户名称不能为空!", vbOKOnly, "提示"

Text1(0).SetFocus

Exit Sub

End If

看得出，text1(0)是用来输入用户名称的，如果＝空白那就叫你再输入，退出这个过程，下面的基本同你能看懂的。

一直到

txtSQL = "select * from user_Form where user_ID='" &Trim(Text1(0)) &"'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

上2行是查数据库，mrc是ado的记录集

If mrc.EOF = False Then '如果记录集不是结尾，也就是说有数据库里有数据，就是用户已经存在了。

mrc.AddNew‘加一行

mrc.Fields(0) = Trim(Text1(0)) ‘填充数据

mrc.Fields(1) = Trim(Text1(1))

mrc.Fields(2) = Now

mrc.Update '更新数据昌哪茄库

mrc.Close'关闭记录集

对于用select * from tb 这样的查询返回的结果，个人认为，最好用.fields("名称")而不耐察用 序号，读来有些累，而且，有时可能会修改表的列，

个人还认为用 ExecuteSQL(txtSQL, MsgText)返缓明回recordset，不好，应该用adodb.command加参数去返回相对合理些

---