我正试图通过将MS Access数据库链接到PowerPoint来自动化报告编写过程。我不知道如何让代码将查询输出到文本框中。代码运行良好，直到出现带有"******"的行。有人知道如何使label1.value等于查询输出吗？谢谢
Dim Connect As String, Source As String
Dim Connection As ADODB.Connection
Dim Recordset1 As ADODB.Recordset
'Database path info
Dim FD As FileDialog
Dim vrtSelectedItem As Variant
Dim fileName As String
Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
MsgBox "The path is: " & vrtSelectedItem
'Open the connection
Set Connection = New ADODB.Connection
Connect = "Provider=Microsoft.ACE.OLEDB.12.0;"
Connect = Connect & "Data Source=" & vrtSelectedItem & ";"
Connection.Open ConnectionString:=Connect
'Set RecordSet
Set Recordset1 = New ADODB.Recordset
With Recordset1
Source = "SELECT [xxx] FROM [yyy] WHERE [zzz] = '12345'"
.Open Source:=Source, ActiveConnection:=Connection
********
***Label1.Value = Recordset1***
********
End With
Next vrtSelectedItem
End If
End With
End Sub
Do
Label1.Value = Label1.Value & vbCrLf & Recordset1.Fields("[YOUR FIELD]").Value
Recordset1.MoveNext
Loop Until Recordset1.EOF
此代码将显示查询中的所有记录([您的字段]字段(。
但您需要添加Recordset1.RecordCount以避免出现错误。
If Recordset1.RecordCount > 0 Then
Do
Label1.Value = Label1.Value & vbCrLf & Recordset1.Fields("[YOUR FIELD]").Value
Recordset1.MoveNext
Loop Until Recordset1.EOF
End If