UC知道access vba的问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 17:19:49
Private Sub Command0_Click()
Dim rs As adodb.Recordset
Set rs = New adodb.Recordset
rs.MoveFirst
Dim i As Integer
i = 1
Do While Not rs.EOF
rs("面积").Value = rs("名称").Value
rs.MoveNext
i = i + 1
Loop
End Sub
大家看看我这段代码哪里错了？为什么总说
Dim rs As adodb.Recordset未定义呢？
加分啊！
Dim rs As adodb.Recordset
Set rs = New adodb.Recordset
rs.MoveFirst
Dim i As Integer
i = 1
Do While Not rs.EOF
rs("面积").Value = rs("名称").Value
rs.MoveNext
i = i + 1
Loop
End Sub
大家看看我这段代码哪里错了？为什么总说
Dim rs As adodb.Recordset未定义呢？
加分啊！
Dim rs As new adodb.Recordset
rs.open sqlstr,conn,1,1
……
没有数据库链接，没有打开rs
直接定义成NEW，不要SET那句看行不。
并且RS好像还没赋值就开始用了。
将Dim rs As adodb.Recordset 写在general中(最上面)，别写在CommandButton里面。