Simone
要先与数据库建立连接,才能执行sql语句,要是SQL语句不能对数据库中的数据直毕卖接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库. Adodc2.RecordSource = "select * from 表 where 用户名 like '" & Text1.Text & "'"Adodc2.RefreshIf Not Adodc2.Recordset.EOF ThenMsgBox "你所填写的用户已经存在,请弯数芦重埋带新输入!", vbOKOnly + vbExclamation, "警告"Text1.SetFocusText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Else'若该用户名还未在表中出现，则增加该用户信息的语句是： Adodc2.Recordset.AddNew Adodc2.Recordset.Fields("用户名") = Trim(Text1.Text) Adodc2.Recordset.Fields("密码") = Trim(Text2.Text) Adodc2.Recordset.Fields(2) = Trim(Text5.Text) Adodc2.Recordset.Fields(3) = Trim(Text4.Text) Adodc2.Recordset.Update MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜" Form1.Show 1 ‘增加新用户名之后显示登录窗口登录 endif
