Update lint_vba.yml

.github/workflows/lint_vba.yml

@@ -13,4 +13,6 @@ jobs:
     steps:
     - uses: actions/checkout@v3
     - name: Lint
-      uses: Vba-actions/lint-vba@main
+      uses: Vba-actions/lint-vba@dev
+      with:
+        path: './src'

README.md

@@ -24,7 +24,7 @@ Features
  Setup
 -----
 
-Open Microsoft Visual Basic For Applications and import each cls and bas and frm file into a new project. Name the project SQLlib and save it as an xlam file. Enable the addin. Within Microsoft Visual Basic For Applications, select Tools>References and ensure that  "Microsoft ActiveX Data Objects x.x Library", "Microsoft Scripting Runtime", and SQLlib is selected.
+Open Microsoft Visual Basic For Applications and import each cls and bas and frm file into a new project. Name the project SQLlib and save it as an xlam file. Enable the addin. Within Microsoft Visual Basic For Applications, select Tools>References and ensure that  "Microsoft ActiveX Data Objects x.x Library", "Microsoft Scripting Runtime", and SQLlib is selected. 
 
  Security
 -----

src/ClassModules/SQLDatabase.cls

@@ -76,7 +76,7 @@ Public Function Execute(oSQL As iSQLQuery, Optional return_column = "")
     If return_column <> "" Then
         If rst.EOF Then
             Execute = False
-        Else			
+        Else
             Execute = rst.GetValue(return_column)
         End If
     Else

src/ClassModules/SQLSelect.cls

@@ -200,8 +200,8 @@ Public Function iSQLQuery_ToString() As String
     If UBound(vFields) < 0 Then
         return_string = ""
     Else
-        return_string = "SELECT " & DistinctString & FieldList & " FROM " & _
-            JoinString & oSQL.WhereString & GroupByString & HavingString & OrderByString
+        return_string = "SELECT " & DistinctString & FieldList & " FROM " & JoinString & _
+            oSQL.WhereString & GroupByString & HavingString & OrderByString
     End If
     iSQLQuery_ToString = oSQL.ReplaceArguments(return_string)
 End Function

src/ClassModules/iSQLRecordset.cls

@@ -27,7 +27,7 @@ Public Function GetValue(MyFieldname)
 End Function
 
 ' Function: GetValue
-Public Function GetRows(num as Integer)
+Public Function GetRows(num As Integer)
 
 End Function
 

src/Modules/SQLHelperFunctions.bas

@@ -12,8 +12,8 @@ Public Function str(vValue) As String
 End Function
 
 Function JoinArrayofArrays(ByVal vArray As Variant, _
-                Optional ByVal WordDelim As String = " ", _
-                Optional ByVal LineDelim As String = vbNewLine) As String
+        Optional ByVal WordDelim As String = " ", _
+        Optional ByVal LineDelim As String = vbNewLine) As String
     Dim R As Long, Lines() As String
     ReDim Lines(0 To UBound(vArray))
     For R = 0 To UBound(vArray)