Data1.RecordSource = "select * from 表名 where 登录名=" & "'" & Text1.text & "'"Data1.RefreshIf Data1.Recordset.RecordCount = 1 ThenMsgBox "用户名已在使用,请重新输入。", , "提示"Exit SubEnd If
点击——提交——查询数据库——返回本页面——alert,不会的问我