How to consume a RecordSet in VBA with a single row

If you want to read just a single value from a table, this can be helpful.
the connection to the database is the current one, builtin inside MS Access.
Copy Embed Code
<iframe id="embedFrame" style="width:600px; height:300px;"
Click on the embed code to copy it into your clipboard Width Height
Leave empty to retrieve all the content Start End
Public Function GetStringFromDB(ByVal id As Integer) As String On Error GoTo ErrorQuery Dim objRS As ADODB.Recordset Dim cmd As ADODB.Command Dim sql As String 'Init db objects 'Connection is the current DB one Set cmd = New ADODB.Command Set objRS = New ADODB.Recordset sql = "SELECT MyField FROM MyTable WHERE ID=" & id Set objRS = CurrentProject.Connection.Execute(sql) GetStringFromDB = objRS("MyField") objRS.Close Set objRS = Nothing Exit_go: Exit Function ErrorQuery: GetStringFromDB = "" End Function
If you want to be updated about similar snippets, Sign in and follow our Channels

blog comments powered by Disqus