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