Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history 
mdl_Helpers // Method "File2OLE"
- File length was shortened by 1 to exclude NUL at the end.
  • Loading branch information
@team-moeller
team-moeller authored Sep 16, 2023
1 parent 4711e78 commit 9240e06
Show file tree
Hide file tree
Showing 20 changed files with 21 additions and 21 deletions.
2 changes: 1 addition & 1 deletion Modules/BAPT_Background.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Columns.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_DataSource.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Font.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Helper.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = False
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_JQueryJS.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_JQueryUI.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Localization.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_PivotCSS.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_PivotJS.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_PivotTable.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_PivotTableGenerator.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = False
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Rows.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Scripts.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_StringBuilder.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = False
'###############################################################################################
'# Copyright (C) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Style.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT_Styles.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = True
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller, supported by K.D.Gundermann #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT__Factory.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Attribute VB_Exposed = False
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
2 changes: 1 addition & 1 deletion Modules/BAPT__Namespace.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ Attribute VB_Name = "BAPT__Namespace"
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down
4 changes: 2 additions & 2 deletions Modules/mdl_Helpers.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ Attribute VB_Name = "mdl_Helpers"
'###############################################################################################
'# Copyright (c) 2021, 2023 Thomas Möller #
'# MIT License => https://github.com/team-moeller/better-access-pivottable/blob/main/LICENSE #
'# Version 2.04.01 published: 26.08.2023 #
'# Version 2.05.05 published: 16.09.2023 #
'###############################################################################################

Option Compare Database
Expand Down Expand Up @@ -53,7 +53,7 @@ Public Function File2OLE(ByVal Table As String, ByVal PrimaryKeyFieldName As Str

Open PathFilename For Binary Access Read Lock Read Write As FileID

FileSize = FileLen(PathFilename)
FileSize = FileLen(PathFilename) - 1 '-1 to exclude NUL at the end
ReDim Buffer(FileSize)
rst(TargetFieldName) = Null
Get FileID, , Buffer
Expand Down

0 comments on commit 9240e06

Please sign in to comment.