From da8ea9ffd579b861f2479e13985063a8f81a7683 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 19 Dec 2023 08:15:36 -0500 Subject: [PATCH 01/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index 26836e7..d9fe652 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -13,4 +13,4 @@ jobs: steps: - uses: actions/checkout@v3 - name: Lint - uses: Vba-actions/lint-vba@main + uses: Vba-actions/lint-vba@dev From e064700b56eb28f5cbbec1bb130f51d80a031121 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 19 Dec 2023 09:29:58 -0500 Subject: [PATCH 02/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index d9fe652..7ba3f62 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -14,3 +14,6 @@ jobs: - uses: actions/checkout@v3 - name: Lint uses: Vba-actions/lint-vba@dev + with: + # Upload docs + path: './src' From e2859e1b98a05c9c048edb71765c9151557e97bf Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 19 Dec 2023 09:30:11 -0500 Subject: [PATCH 03/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 1 - 1 file changed, 1 deletion(-) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index 7ba3f62..bbf9693 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -15,5 +15,4 @@ jobs: - name: Lint uses: Vba-actions/lint-vba@dev with: - # Upload docs path: './src' From cb9f470aa7e0c8d0e4acacc64884b13418661559 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 19 Dec 2023 09:30:27 -0500 Subject: [PATCH 04/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index bbf9693..4637b9c 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -15,4 +15,4 @@ jobs: - name: Lint uses: Vba-actions/lint-vba@dev with: - path: './src' + path: './src' From 9eb6127e8775ba7d3a29505c2ac20902d040b16a Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 19 Dec 2023 10:40:34 -0500 Subject: [PATCH 05/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index 4637b9c..51d0969 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -13,6 +13,6 @@ jobs: steps: - uses: actions/checkout@v3 - name: Lint - uses: Vba-actions/lint-vba@dev + uses: Vba-actions/lint-vba with: path: './src' From 3add997f7ce8257ef61de37a0ff88ea15c93a439 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 19 Dec 2023 10:41:22 -0500 Subject: [PATCH 06/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index 51d0969..e55fca4 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -13,6 +13,6 @@ jobs: steps: - uses: actions/checkout@v3 - name: Lint - uses: Vba-actions/lint-vba + uses: Vba-actions/lint-vba@main with: path: './src' From 8373671a78ddf068136a65c63770ec2314569e62 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Tue, 23 Jan 2024 21:15:11 -0500 Subject: [PATCH 07/15] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index e55fca4..4637b9c 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -13,6 +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' From da68e775bd1524563fb7435bb079fa34a2efed77 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Wed, 24 Jan 2024 08:53:20 -0500 Subject: [PATCH 08/15] Update SQLDatabase.cls --- src/ClassModules/SQLDatabase.cls | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ClassModules/SQLDatabase.cls b/src/ClassModules/SQLDatabase.cls index 0a04639..ce1aae7 100644 --- a/src/ClassModules/SQLDatabase.cls +++ b/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 From 871d8a23a5f382f9fc694ec793bc9c0a5270022f Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Wed, 24 Jan 2024 08:53:36 -0500 Subject: [PATCH 09/15] Update iSQLRecordset.cls --- src/ClassModules/iSQLRecordset.cls | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ClassModules/iSQLRecordset.cls b/src/ClassModules/iSQLRecordset.cls index c5eabf0..fb2393e 100644 --- a/src/ClassModules/iSQLRecordset.cls +++ b/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 From c250fe59c60d680b1394e0b54d43a8bc2513695a Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Wed, 24 Jan 2024 10:29:43 -0500 Subject: [PATCH 10/15] Update SQLHelperFunctions.bas From 45cb4cb819564e66df85bba9d5e2f07ed2d20b99 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Thu, 25 Jan 2024 20:18:46 -0500 Subject: [PATCH 11/15] Update SQLHelperFunctions.bas --- src/Modules/SQLHelperFunctions.bas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Modules/SQLHelperFunctions.bas b/src/Modules/SQLHelperFunctions.bas index f3743f9..d4c280d 100644 --- a/src/Modules/SQLHelperFunctions.bas +++ b/src/Modules/SQLHelperFunctions.bas @@ -11,9 +11,7 @@ Public Function str(vValue) As String str = "'" & Replace(vValue, "'", "''") & "'" End Function -Function JoinArrayofArrays(ByVal vArray As Variant, _ - Optional ByVal WordDelim As String = " ", _ - Optional ByVal LineDelim As String = vbNewLine) As String +Function JoinArrayofArrays(ByVal vArray As Variant, 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) From ced9364e4e2d6ba77501380d5eb53ea474457970 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Thu, 25 Jan 2024 20:49:03 -0500 Subject: [PATCH 12/15] Update SQLSelect.cls --- src/ClassModules/SQLSelect.cls | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/ClassModules/SQLSelect.cls b/src/ClassModules/SQLSelect.cls index 55f69b1..2ef619e 100644 --- a/src/ClassModules/SQLSelect.cls +++ b/src/ClassModules/SQLSelect.cls @@ -200,8 +200,7 @@ 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 From 8c1b88cf87c5160015ee98b5afa3a7df7996e6b0 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Thu, 25 Jan 2024 21:02:47 -0500 Subject: [PATCH 13/15] Update SQLSelect.cls --- src/ClassModules/SQLSelect.cls | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/ClassModules/SQLSelect.cls b/src/ClassModules/SQLSelect.cls index 2ef619e..53c1d09 100644 --- a/src/ClassModules/SQLSelect.cls +++ b/src/ClassModules/SQLSelect.cls @@ -200,7 +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 From a6a5a3ceed2a0a43c9919bc1996efd0018eda70d Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Thu, 25 Jan 2024 21:19:05 -0500 Subject: [PATCH 14/15] Update SQLHelperFunctions.bas --- src/Modules/SQLHelperFunctions.bas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Modules/SQLHelperFunctions.bas b/src/Modules/SQLHelperFunctions.bas index d4c280d..fb2618a 100644 --- a/src/Modules/SQLHelperFunctions.bas +++ b/src/Modules/SQLHelperFunctions.bas @@ -11,7 +11,9 @@ Public Function str(vValue) As String str = "'" & Replace(vValue, "'", "''") & "'" End Function -Function JoinArrayofArrays(ByVal vArray As Variant, Optional ByVal WordDelim As String = " ", Optional ByVal LineDelim As String = vbNewLine) As String +Function JoinArrayofArrays(ByVal vArray As Variant, _ + 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) From 499f1e9522759418ce6f180f81b4055c8125b580 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Mon, 26 Feb 2024 07:02:36 -0500 Subject: [PATCH 15/15] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index c8e4ee7..531af3b 100644 --- a/README.md +++ b/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 -----