Re: Database encoding

>Encoding can be a string or an integer. To be honest, I never use encoding
>so I know virtually nothing about it at all. If you think it's being done
>incorrectly, let me know and I'll fix it as you suggest.
>
>Later, Dave.

Hello,

If possible, I would prefer the display of stings vs numbers.
In psql, \list returns the list of databases with encoding names
(ex:'SQL_ASCII').

In my case, this helps distinguish between SQL_ASCII and UNICODE encoding.
I would suggest declaring Private szEncoding As String in pgSchema.

Later/JMP

****************************************************************************
**************************
Public Function EncodingIntegerToString (iEncoding As Integer) As String
On Error GoTo Err_Handler

Select Case iEncoding
     Case 0
     EncodingIntegerToString = "SQL_ASCII"

     Case 1
     EncodingIntegerToString = "EUC_JP"

     Case 2
     EncodingIntegerToString = "EUC_CN"

     Case 3
     EncodingIntegerToString = "EUC_KR"

     Case 4
     EncodingIntegerToString = "EUC_TW"

     Case 5
     EncodingIntegerToString = "UNICODE"

     Case 6
     EncodingIntegerToString = "MULE_INTERNAL"

     Case 7
     EncodingIntegerToString = "LATIN1"

     Case 8
     EncodingIntegerToString = "LATIN2"

     Case 9
     EncodingIntegerToString = "LATIN3"

     Case 10
     EncodingIntegerToString = "LATIN4"

     Case 11
     EncodingIntegerToString = "LATIN5"

     Else
     EncodingIntegerToString = CStr(iEncoding)
End Select

Exit Function
Err_Handler:  objServer.iLogError Err
End Function

Public Function EncodingStringToInteger(szEncoding As String) As Integer
On Error GoTo Err_Handler

Select Case szEncoding
     Case "SQL_ASCII"
     EncodingStringToInteger = 0

     Case "EUC_JP"
     EncodingStringToInteger = 1

     Case "EUC_CN"
     EncodingStringToInteger = 2

     Case "EUC_KR"
     EncodingStringToInteger = 3

     Case "EUC_TW"
     EncodingStringToInteger = 4

     Case "UNICODE"
     EncodingStringToInteger = 5

     Case "MULE_INTERNAL"
     EncodingStringToInteger = 6

     Case "LATIN1"
     EncodingStringToInteger = 7

     Case "LATIN2"
     EncodingStringToInteger = 8

     Case "LATIN3"
     EncodingStringToInteger = 9

     Case "LATIN4"
     EncodingStringToInteger = 10

     Case "LATIN5"
     EncodingStringToInteger = 11

     Else
     EncodingStringToInteger = CInt(szEncoding)
End Select

Exit Function
Err_Handler:  objServer.iLogError Err
End Function