首先,使用ADO连接到数据库。 然后,执行一个查询,将结果存储在Recordset对象中。 最后,使用Recordset对象中的字段来设置控件或将其保存到一个数组中以稍后使用。
以下是示例代码:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myDatabase.accdb"
Set rs = New ADODB.Recordset
rs.Open "SELECT HyperlinkField FROM MyTable WHERE ID=1", conn
If Not rs.EOF Then
Me.MyHyperlinkControl.HyperlinkAddress = rs.Fields("HyperlinkField")
End If
rs.Close
conn.Close