Issue with encapsulating fields in a dynamic SQL string builder - sql

Question

I am trying to create a dynamic SQL string builder for my application and am having some issues with encapsulating the fieldnames with brackets.
My code is as follows:
Public Sub BuildDynamicSQL( _
FieldsArray() As String, _
ByVal TableName As String)
' Declarations ->
Dim strSQL As String: strSQL = vbNullString
Dim Field As Variant
Dim i As Integer: i = 0
' Validate fields array ->
If IsEmpty(FieldsArray) Then Exit Sub
' Construct SQL using Fields array ->
strSQL = "SELECT "
For Each Field In FieldsArray
If i = 0 Then
strSQL = strSQL + "[" + Field + "]"
Else
strSQL = strSQL + "," + "[" + Field + "]"
End If
i = i + 1
Next
strSQL = strSQL + " FROM " + TableName
End Sub
When I run this code with more than one field in my FieldsArray, I keep getting the following output with unnecessary leading spaces.
SELECT [log_id],[ log_description],[ create_user],[ create_date_time] FROM activity_log
Has anyone got any idea how I can get this to work as expected?
Many thanks.

Answer 1

Here is a generalized example of a function accepting a paramarray argument and returning a string.
Option Explicit
Sub main()
Dim sql As String
sql = buildMySql("mytable")
Debug.Print sql
sql = buildMySql("mytable", "fld1", "fld2", "fld3", "fld4")
Debug.Print sql
End Sub
Function buildMySql(tbl As String, ParamArray flds()) As String
Dim str As String, f As Long
If IsMissing(flds) Then
str = "select * from [" & tbl & "];"
Else
str = "select "
For f = LBound(flds) To UBound(flds)
str = str & "[" & flds(f) & "]" & IIf(f < UBound(flds), Chr(44), vbNullString)
Next f
str = str & " from [" & tbl & "];"
End If
buildMySql = str
End Function
'results
select * from [mytable];
select [fld1],[fld2],[fld3],[fld4] from [mytable];