Question

VB怎样向数据库写入多个数据？

我想把输入的账号、密码、密码保护问题及密码保护答案等四项内容写入数据库，但是似乎只能写入两项。如果把rs.Update写在前两项末尾，再在后两项的末尾也加上rs.Update，这样的话就会把账号密码和问题答案分开了，这不是我想要的。大家有没有解决办法，帮帮我吧，感激不尽！
我是这样写的：
Private conn As New ADODB.Connection
Private rs As New ADODB.Recordset

SQL = "select username,password from admin Where username='" & txtUserName.Text & "' and password='" & txtPassword.Text & "'"

rs.Open SQL, conn, 3, 3 '我也试了下1,3
rs.AddNew
rs!username = txtUserName.Text '将用户名写入数据库
rs!password = txtPassword.Text '将密码写入数据库
rs!answer = txtAnswer.Text '密保答案写入数据库
rs!wenti = Text3.Text '将密保问题写入数据库
rs.Update
rs.Close

我写的代码运行后会弹出“实时错误3265 在对应所需名称或序数的集合中，未找到项目”，然后停在rs!answer = txtAnswer.Text '密保答案写入数据库这一行。

Answer 1

SQL = "select username,password from admin Where username='" & txtUserName.Text & "' and password='" & txtPassword.Text & "'"

上面这句查询只找出两个记录项集，username与password
你可以再加上answer与wenti的项
也可以用*号代表所有记录项

模糊查找：
SQL = "select * from admin Where username='" & txtUserName.Text & "' and password='" & txtPassword.Text & "'"

精确查找：
SQL = "select username,password,answer,wenti from admin Where username='" & txtUserName.Text & "' and password='" & txtPassword.Text & "'"

Answer 2

1、你的数据库表的属性是否为四个？
2、4个属性与数据库连接的名称是否对应
3、判断查询结果，查询到符合条件的记录是否大于1个，如超过1需指定指针位置如 xxx.Recordset.MoveLast

Answer 3

代码如下：
把 SQL = "select username,password from admin Where username='" & txtUserName.Text & "' and password='" & txtPassword.Text & "'"
改成一下代码

SQL = "insert into admin values（'" & txtUsername.Text & " ','" & txtPassword.Text & "', '" & txtAnswer.Text & "','" & Text3.Text & "'）Where username='" & txtUserName.Text & "' and password='" & txtPassword.Text & "'"

Answer 4

数据库中admin表中没有 answer wenti 这2个字段 当然就出错了。