Question

VB关于adodc数据添加，数据库已经连好，老是报错：对象变量或with块变量未设置

Private Sub login_Click()
If Trim(login_name.Text) = "" Or Trim(psd.Text) = "" Then
MsgBox ("用户名和密码不能为空")
ElseIf psd.Text <> repsd.Text Then
MsgBox ("两次密码不一样，请重新输入")
Else:
Adodclogin.Recordset.AddNew
Adodclogin.Recordset.Fields(1) = login_name.Text
Adodclogin.Recordset.Fields(2) = psd.Text
Adodclogin.Recordset.Fields(3) = "customer"
Adodclogin.Refresh
MsgBox ("注册成功！")
End If
End Sub

实在不知道哪里错了~在线等啊

Answer 1

这里对象又不是只有一个，不说清楚点
1 检查一下文本框名有没有写错的
2 在建立数据源连接时，有个测试按钮，测试一下能不能连接成功
3 字段索引是不是从1开始啊？如果是Adodclogin.Recordset.Fields(3) = "customer"
出错的话，那应该从0开始。