Question

关于vb中的Adodc1.Recordset.Fields帮忙解答下 急急急

Adodc1.RecordSource = "select * from 部门表 where 部门编号='" + Trim(Text1.Text) + "'"
Adodc1.RecordSource = "select * from 部门表 where 部门名称='" + Trim(Text2.Text) + "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("0") = Trim(Text1.Text)
Adodc1.Recordset.Fields("1") = Trim(Text2.Text)
Adodc1.Recordset.Update

MsgBox "操作成功", vbOKOnly + vbExclamation, ""
执行时总是提示在对应所需名称或序数的集合中，未找到项目！我是初学者 不知道怎么办了
把0和1的双引号去了后。是多步操作请检查每一步的状态值！我不知道哪里错了

Answer 1

1.“在对应所需名称或序数的集合中，未找到项目”
意思是说你的表名或字段名错误，不和数据库表里的对应，请注意检查
2.按照你的意思，使需要把0和1的双引号去了

3,其实你的语句可以这么写：
Adodc1.RecordSource = "select * from 部门表 where 部门编号='" + Trim(Text1.Text) + "' and
部门名称='" + Trim(Text2.Text) + "'"

另外，部门编号确定是字符型还是数字？如果是数字，就需要把单引号去掉，如
Adodc1.RecordSource = "select * from 部门表 where 部门编号=" + Trim(Text1.Text) + " and
部门名称='" + Trim(Text2.Text) + "'"