release 1.2.8

Author: tomFlidr

Databasic.OracleSql.nuspec

@@ -2,7 +2,7 @@
 <package xmlns="http://schemas.microsoft.com/packaging/2011/08/nuspec.xsd">
 	<metadata minClientVersion="2.6">
 		<id>Databasic.OracleSql</id>
-		<version>1.2.6.0</version>
+		<version>1.2.8.0</version>
 		<title>Databasic - Oracle</title>
 		<authors>Tom Flidr</authors>
 		<owners>Tom Flidr</owners>
@@ -18,7 +18,7 @@
 		<tags>sql oracle orcl database query command select insert update delete pure sql dml tool utility library</tags>
 		<dependencies>
 			<dependency id="Oracle.DataAccess.x86.4" version="4.112.3" />
-			<dependency id="Databasic.Core" version="1.2.4.0" />
+			<dependency id="Databasic.Core" version="1.2.8.0" />
 		</dependencies>
 		<frameworkAssemblies>
 			<frameworkAssembly assemblyName="System.Core" />

Databasic.OracleSql.vbproj

@@ -42,6 +42,12 @@
   <PropertyGroup>
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
+  <PropertyGroup>
+    <SignAssembly>true</SignAssembly>
+  </PropertyGroup>
+  <PropertyGroup>
+    <AssemblyOriginatorKeyFile>Tom Flidr - .NET.pfx</AssemblyOriginatorKeyFile>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="Oracle.DataAccess, Version=4.112.3.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=x86">
       <HintPath>..\packages\Oracle.DataAccess.x86.4.4.112.3\lib\Oracle.DataAccess.dll</HintPath>
@@ -107,6 +113,7 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <None Include="packages.config" />
+    <None Include="Tom Flidr - .NET.pfx" />
     <None Include="_CreateNewNuGetPackage\Config.ps1" />
     <None Include="_CreateNewNuGetPackage\DoNotModify\CreateNuGetPackage.ps1" />
     <None Include="_CreateNewNuGetPackage\DoNotModify\New-NuGetPackage.ps1" />

My Project/AssemblyInfo.vb

@@ -34,5 +34,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.6.0")>
-<Assembly: AssemblyFileVersion("1.2.6.0")>
+<Assembly: AssemblyVersion("1.2.8.0")>
+<Assembly: AssemblyFileVersion("1.2.8.0")>

README.md

@@ -1,6 +1,6 @@
 # Databasic - Oracle
 
-[![Latest Stable Version](https://img.shields.io/badge/Stable-v1.2.6-brightgreen.svg?style=plastic)](https://github.com/databasic-net/databasic-core/releases)
+[![Latest Stable Version](https://img.shields.io/badge/Stable-v1.2.8-brightgreen.svg?style=plastic)](https://github.com/databasic-net/databasic-core/releases)
 [![License](https://img.shields.io/badge/Licence-BSD3-brightgreen.svg?style=plastic)](https://raw.githubusercontent.com/databasic-net/databasic-core/master/LICENCE.md)
 ![.NET Version](https://img.shields.io/badge/.NET->=4.0-brightgreen.svg?style=plastic)
 

Statement.vb

@@ -1,4 +1,4 @@
-Imports System.ComponentModel
+Imports System.ComponentModel
 Imports System.Data.Common
 Imports Oracle.DataAccess.Client
 
@@ -75,9 +75,13 @@ Public Class Statement
             Dim sqlParamValue As Object
             For Each prop As PropertyDescriptor In TypeDescriptor.GetProperties(sqlParams)
                 sqlParamValue = prop.GetValue(sqlParams)
+                If (sqlParamValue Is Nothing) Then
+                    sqlParamValue = DBNull.Value
+                Else
+                    sqlParamValue = Me.getPossibleUnderlyingEnumValue(sqlParamValue)
+                End If
                 Me._cmd.Parameters.Add(
-                    prop.Name,
-                    If((sqlParamValue Is Nothing), DBNull.Value, sqlParamValue)
+                    prop.Name, sqlParamValue
                 )
             Next
         End If
@@ -87,11 +91,16 @@ Public Class Statement
     ''' </summary>
     ''' <param name="sqlParams">Dictionary with named keys as Oracle statement params without any '@' chars in dictionary keys.</param>
     Protected Overrides Sub addParamsWithValue(sqlParams As Dictionary(Of String, Object))
+        Dim sqlParamValue As Object
         If (Not sqlParams Is Nothing) Then
             For Each pair As KeyValuePair(Of String, Object) In sqlParams
+                If (pair.Value Is Nothing) Then
+                    sqlParamValue = DBNull.Value
+                Else
+                    sqlParamValue = Me.getPossibleUnderlyingEnumValue(pair.Value)
+                End If
                 Me._cmd.Parameters.Add(
-                    pair.Key,
-                    If((pair.Value Is Nothing), DBNull.Value, pair.Value)
+                    pair.Key, sqlParamValue
                 )
             Next
         End If