RE: idea for reading encodign format

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@email.it] 
Sent: 09 September 2002    16:46
To: pgadmin-hackers
Subject: [pgadmin-hackers] idea   & n bsp;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", "en coding", & nbsp;"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",  &nbs p;  " 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   &nb sp;encod i gn  

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   &nb sp;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
       ; & n bsp;       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&nb sp;(Wolf )  !!    

----
Prendi GRATIS l'email    universale che... risparmia: clicca qui    

Sponsor:
Tuffati in un mondo di occasioni d'oro...
Clicca qui 

 

 

 

 

 

Bye !! Frank Lupo (Wolf) !!

----
Prendi GRATIS l'email universale che... risparmia: clicca qui

Sponsor:
Sei un webmaster, vuoi guadagnare? Affiliati ad Artefiori. Clicca qui!
Clicca qui