★★关于update数据库的菜鸟问题

Itachi

我想实现这样一个功能：

1、从“实验表”的“客户名”字段中读取一个数据，把次数据记录到变量a中
2、把变量a赋值到“实验表”的“相似客户名”字段中。

现在出现一个问题：可以单独读取，也可以单独update，但是如果“读取”和“update”同时进行，系统则会报错：“在对应所需名称或序数的集合中，未找到项目”。程序及系统报错语句如下：

Private Sub Command0_Click()
 
 Dim rs1 As ADODB.Recordset    '定义rs1记录集
 Dim SQL1 As String                    '定义SQL1查询语句
 
 Dim rs2 As ADODB.Recordset
 Dim SQL2 As String
 
 Dim a As String                           'a用来赋值
 
 Set rs1 = New ADODB.Recordset
 Set rs2 = New ADODB.Recordset

 SQL1 = "select 客户名 from 实验表 where 编号=1"
 rs1.Open SQL1, CurrentProject.AccessConnection
 a = rs1("客户名")
 Me.Text1 = a
 rs1.Close
 
 SQL2 = "select 客户名 from 实验表 where 编号=1"
 rs2.Open SQL2, CurrentProject.AccessConnection
 rs2("相似度客户名").Value = a          '系统报错！！！我猜会不会是rs2.open语句的第二个参数有问题？
 rs2.Update
 rs2.Close
 
End Sub

请各位大虾帮帮忙，在下感激不尽！

Gemmy

SQL2 = "select 客户名 from 实验表 where 编号=1"
 rs2.Open SQL2, CurrentProject.AccessConnection
 rs2("相似度客户名").Value = a          '系统报错！！！我猜会不会是rs2.open语句的第二个参数有问题？
 rs2.Update
 rs2.Close

这句的a没赋值，上个语句里有a，但是已经close了，你下面继续用a给rs2("相似度客户名").Value赋值，就会出错的。

Itachi

谢谢楼上的！问题已经解决了。