ADO Tips & Tricks1) Connection Objecta)
Opening the Database
b)
Executing Commands
c)
Executing Queries
d)
Closing the Database
2) Recordset Objecta)
The Fields Collection
b)
Editing Records
3) Toolsa)
One Column Queries
b)
ComboBox Example
c)
One Row Queries
d)
Multi-Column Queries
e)
Getting Field Names
f)
ComboBox Example, 2
4) A Useful Examplea)
The SELECT Clause
b)
The WHERE Clause
c)
The Query
|
One
Row Queries
This
tool packages a row into a Collection instead of a Field objects. Each entry
uses its field's name as a key.
Public Function ExecuteOneRowQuery( _
ByVal query As String) As Collection
Dim results As Collection
Dim rs As ADODB.Recordset
Dim field_num As Integer
Set results = New Collection
' Execute the query.
Set rs = m_DBConnection.Execute(query, , adCmdText)
' Save the results in the collection.
If Not rs.EOF Then
For field_num = 0 To rs.Fields.Count - 1
results.Add rs.Fields(field_num).Value, _
rs.Fields(field_num).Name
Next field_num
End If
' Close the Recordset.
rs.Close
' Return the collection.
Set ExecuteOneRowQuery = results
End Function
|
