DOA数据操作3021报错

久石让的粉丝　发表于：2013-06-22 12:46:23 　

使用DOA将多条记录编程文本输出

表1

张三

李四

王五

VBA代码：

Private Sub Form_Load()
Dim str As String
Dim X As DAO.Recordset
Set X = CurrentDb.OpenRecordset("表1", dbOpenDynaset)
X.MoveFirst
    Do Until X.EOF
        str = str & ";" & X("xm")
        X.MoveNext
    Loop
    X.Close
    Set X = Nothing
    Me.Text0 = Mid(str, 2)
End Sub

最终结果是在窗体文本框中显示：张三；李四；王五

但是有个缺点，如果表1是空表，access会报错3021错误，求大侠指点

以上代码在窗体的加载中，如果将表1数据清空，就会报错。点击下载此附件

Top

爱在深秋发表于：2013-06-22 15:14:04

增加判断表中记录,应该能解决了吧

Top

网行者发表于：2013-06-22 15:15:05

供参考:

Private Sub Form_Load()
Dim str As String
Dim X As DAO.Recordset
Set X = CurrentDb.OpenRecordset("表1", dbOpenDynaset)

If X.RecordCount > 0 Then

X.MoveFirst
    Do Until X.EOF
        str = str & ";" & X("xm")
        X.MoveNext
    Loop

ELSE

str=""

End If

X.Close
Set X = Nothing
Me.Text0 = Mid(str, 2)

End Sub

Top

叶海峰发表于：2013-06-24 11:44:48

引用一下ADO,用GetString方法就行了,不用搞那么复杂

Dim rst As New ADODB.Recordset

rst.Open "select * from 表1", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If rst.RecordCount > 0 Then Me.Text0 = rst.GetString(adClipString, , , ";")

rst.Close

set rst=NoThing

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

DOA数据操作3021报错