Tirar nome do schema do PostgreSQL no Access | Desenvolvimento de software

Meu computador

Mais recentes

Outras seções

Busca no site

RSS Meu Computador

Tirar nome do schema do PostgreSQL no Access

Quarta, 22 Abril 2009 09:17

Converter a base de dados de sistemas em Access para o PostgreSQL é uma ótima idéia. No entanto, ao fazer o vínculo no Access, os nomes das tabelas ficam com os nomes dos schemas, seguido de underline e será preciso renomear cada uma delas para que seu sistema continue funcionando. Há um modo de renomear todas as tabelas de uma só vez, principalmente se houver um só schema:

Sub StripSchemaName(schemaname As String)
    'schemaname that prefixes the table e.g. public
    '--EXAMPLE use from immediate window -
    '-- StripSchemaName "public"
    Dim tdf As Object
    Dim i As Integer
    For Each tdf In CurrentDb.TableDefs
        If Left(tdf.Name, Len(schemaname)) = schemaname Then
             'plus 2 to strip the _ as well
            tdf.Name = Mid(tdf.Name, Len(schemaname) + 2)
        End If
    Next
    MsgBox "Done"
End Sub

Execute esta função passando como parâmetro o nome do schema.

Exemplo: StripSchemaName("public")

Fonte: http://www.postgresonline.com/journal/index.php?/archives/24-Using-MS-Access-with-PostgreSQL.html

Comentários

Adicionar novo

Busca