jj firebird

Modules.Database/Firebird.vb

@@ -138,7 +138,8 @@ Public Class Firebird
             .DataSource = DataSource,
             .Database = Database,
             .UserID = User,
-            .Password = Password
+            .Password = Password,
+            .Charset = "UTF8"
         }.ToString()
     End Function
 
@@ -153,17 +154,22 @@ Public Class Firebird
     End Function
 
     Private Function MaybeCommitTransaction(Transaction As FbTransaction, TransactionMode As TransactionMode)
-        If TransactionMode = TransactionMode.NoTransaction Then
-            Return True
-        Else
-            Try
-                Transaction.Commit()
+        Select Case TransactionMode
+            Case TransactionMode.NoTransaction
                 Return True
-            Catch ex As Exception
-                _logger.Error(ex)
-                Return False
-            End Try
-        End If
+            Case TransactionMode.ExternalTransaction
+                Return True
+            Case TransactionMode.WithTransaction
+                Try
+                    Transaction.Commit()
+                    Return True
+                Catch ex As Exception
+                    _logger.Error(ex)
+                    Return False
+                End Try
+            Case Else
+                Return True
+        End Select
     End Function
 
     ''' <summary>