Re: idea for reading encodign format

From: "Dave Page" <dpage(at)vale-housing(dot)co(dot)uk>
To: "frank_lupo" <frank_lupo(at)email(dot)it>, "pgadmin-hackers" <pgadmin-hackers(at)postgresql(dot)org>
Subject: Re: idea for reading encodign format
Date: 2002-09-10 13:07:13
Message-ID: 03AF4E498C591348A42FC93DEA9661B867CC@mail.vale-housing.co.uk
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgadmin-hackers

Hi Frank,

Hmm, that doesn't seem to work here. For any random integervalue of X
that I try in select pg_encoding_to_char(X), I get SQL_ASCII as the
result.

This is a problem I would like to fix, though I don't have time myself
right now :-(

Regards, Dave.

-----Original Message-----
From: frank_lupo [mailto:frank_lupo(at)email(dot)it]
Sent: 09 September 2002 16:46
To: pgadmin-hackers
Subject: [pgadmin-hackers] idea for reading encodign format

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"< BR> ; cboProperties(0).ComboItems.Add , ,
"LATIN1", "encoding", "encoding"
cboProperties(0).ComboItems.Add , , "LATIN2", "encoding",
"encoding"
cboProperties(0).ComboItems.Add , , "LATIN3", "encoding",
"encoding"
cboProperties(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 : < /P>

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
cboProperties(0).Text = rsSQL.Fields(0).Value
Set objItem = cboProperties (0).Comb o
Items.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


Bye !! Frank Lupo (Wolf) !!

----
Prendi GRATIS l'email universale che... risparmia: clicca qui
<http://www.email.it/cgi-bin/start?sid=3>

Sponsor:
Tuffati in un mondo di occasioni d'oro...
Clicca qui
<http://adv2.email.it/cgi-bin/foclick.cgi?mid=612&d=9-9>

Browse pgadmin-hackers by date

  From Date Subject
Next Message frank_lupo 2002-09-10 13:44:58 RE: idea for reading encodign format
Previous Message frank_lupo 2002-09-09 15:47:37 idea for reading encodign format