[VB6] creare campo in tabella ACCESS

[rex_rome]

Ciao , potresti provare in questo modo :

Dim VTabella As TableDef
With Db
    ' Leggi tutte le tabelle presenti nel database
    For Each VTabella In .TableDefs
            If UCase(VTabella.Name) = UCase(Tua_Tabella ) Then
                 VTabella.Fields.append VTabella.createfield(Tuo_Campo , dbtext)
            End If
    Next VTabella
End With
End Sub

Per la guida on-line di Sql non so dirti dove trovarla , provo a vedere se tra i file che ho scaricato ho qualcosa , cmq access ha una sintassi tutta sua non è Sql standard .

Fammi sapere se funziona .
Ciao alla prossima
Red