Il sito di Ivan Piffer - Database MS Access con nomi di tabelle e campi in Maiuscolo : Come trasformare tutto in lowercase

Chatta con me

MySQL

Database MS Access con nomi di tabelle e campi in Maiuscolo : Come trasformare tutto in lowercase

Scritto da Ivan Piffer

giovedì 14 luglio 2011

da a

Ho fatto un piccolo modulo in MS Access per trasformare tutti i nomi delle tabelle (table) e dei campi (fields) in minuscolo (lowercase).

Molto utile per l'esportazione in db come Postgresql.

Function FieldsNameAllTablesToLCASE()

On Error GoTo ErrorHandler

        Dim Database As DAO.Database
        Dim Tabella As DAO.TableDef
        Dim Campo As DAO.Field

        'Imposto il database
        Set Database = CurrentDb()
        MsgBox ("Nome Database=" + Database.Name)

        'Ciclo il nome delle tabelle nel database
        For Each Tabella In Database.TableDefs
          If Not Tabella.Name Like "msys*" Then
            If Not Tabella.Name Like "~tmp*" Then
              MsgBox ("Nome Tabella=" + Tabella.Name)
              Tabella.Name = LCase(Tabella.Name)
              'Ciclo la tabella
              For Each Campo In Tabella.Fields
               'MsgBox ("Nome Campo=" + Campo.Name)
               Campo.Name = LCase(Campo.Name)
              Next Campo
            End If
          End If
        Next Tabella

RefreshDatabaseWindow

ErrorHandler:
Exit Function

End Function