vb mysql 插入记录_VB+SQL中，如何解决VB向SQL数据库添加新记录

我用vb做注册新用户界面的时候，首先判断该用户是否存在，若存在则重新申请输入，若不存在则增加该新用户。判断该用户是否存在的语句是：DoWhileNotAdodc2.Recordset.EOFIfTrim(Adodc...

我用vb做注册新用户界面的时候，首先判断该用户是否存在，若存在则重新申请输入，若不存在则增加该新用户。

判断该用户是否存在的语句是：

Do While Not Adodc2.Recordset.EOF

If Trim(Adodc2.Recordset.Fields("用户名")) = Trim(Text1.Text) Then

MsgBox "你所填写的用户已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告"

Text1.SetFocus

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Else

Adodc2.Recordset.MoveNext

End If

Loop

若该用户名还未在表中出现，则增加该用户信息的语句是：

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

Adodc2.Recordset.Close

MsgBox " 用户注册成功!", vbOKOnly + vbExclamation, "恭喜"

Form1.Show 1 ‘增加新用户名之后显示登录窗口登录

本人是VB初学者，请说的尽量详细一点，在线等，谢谢

展开