From: | frank_lupo <frank_lupo(at)email(dot)it> |
---|---|
To: | pgadmin-hackers <pgadmin-hackers(at)postgresql(dot)org> |
Subject: | idea for reading encodign format |
Date: | 2002-09-09 15:47:37 |
Message-ID: | H26H7D$CB989437BDEE61F9691362E0612BA455@email.it |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgadmin-hackers |
for reading encodign format current version is:
'Load the Encoding Schemes
cboProperties(0).Text = "SQL_ASCII"
Set objItem = cboProperties(0).ComboItems.Add(, , "SQL_ASCII", "encoding", "encoding")
objItem.Selected = True
cboProperties(0).ComboItems.Add , , "EUC_JP", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "EUC_CN", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "EUC_KR", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "EUC_TW", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "UNICODE", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "MULE_INTERNAL", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "LATIN1", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "LATIN2", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "LATIN3", "encoding", "encoding"=0
D
c
boProperties(0).ComboItems.Add , , "LATIN4", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "LATIN5", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "KOI8", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "WIN", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "ALT", "encoding", "encoding"
this version is a problem to custom encodign into program. For new encodign modify program to add new encodign
For reading automatly encodign usign this code:
Dim rsSQL As New Recordset
Dim bIsValid As Boolean
'Load the Encoding Schemes
bIsValid = True
X = 0
While bIsValid
Set rsSQL = frmMain.svr.Databases("template1").Execute("select pg_encoding_to_char(" & X & ")")
If rsSQL.Fields(0).Value = "" Then bIsValid = False
If bIsValid Then
If X = 0 Then
cboPrope
rties(0)
.
Text = rsSQL.Fields(0).Value
Set objItem = cboProperties(0).ComboItems.Add(, , rsSQL.Fields(0).Value, "encoding", "encoding")
objItem.Selected = True
Else
cboProperties(0).ComboItems.Add , , rsSQL.Fields(0).Value, "encoding", "encoding"
End If
End If
X = X + 1
Wend
Bye !!
Frank Lupo (Wolf) !!
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
Email.it Free (Internet) Access
Prova il Nuovo Numero Unico valido per tutta Italia a tariffa locale!!!
Email.it Free Access, dai più qualità alla tua navigazione....
Clicca qui: http://adv2.email.it/cgi-bin/foclick.cgi?mid=441&d=9-9
From | Date | Subject | |
---|---|---|---|
Next Message | Dave Page | 2002-09-10 13:07:13 | Re: idea for reading encodign format |
Previous Message | frank_lupo | 2002-09-09 15:45:57 | idea for reading encodign format |