criar tabela usando sql:
create table tabela (
id AutoIncrement Primary Key,
campo_numero number,
campo_texto text(50),
Campo_date date,
Campo_memo longtext,
campo_binary binary,
campo_BIT BIT,
Campo_Byte byte,
campo_currency currency,
campo_LONGTEXT LONGTEXT
)
ALTER TABLE tabela
add COLUMN campo_texto1 text(50);
ALTER TABLE tabela4
ALTER COLUMN campo_texto1 TEXT(250);
ALTER TABLE tabela4 DROP COLUMN campo_texto1;
ou pelo modo catalogo.
Sub Altera_tabela()
' referencia : microsoft ADO ext
Dim cnn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column
Dim DS$, Senha$
DS = "C:Banco de dadosBD2.mdb"
Senha = ""
Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & DS & " ;Jet OLEDB:Database Password= " & Senha
.Open
End With
Set cat = New ADOX.Catalog
cat.ActiveConnection = cnn
Set tbl = cat.Tables("TBL_01")
tbl.Name = "TBL_outro nome da tabela"
Set col = tbl.Columns("campo_numero")
col.Name = "Campo_Numero2"
'col.Properties("Description") = "Uma descrição qualquer"
tbl.Columns.Append "nome_fantasia", ADOX.DataTypeEnum.adVarWChar, 50
tbl.Columns.Append "Slogan", ADOX.DataTypeEnum.adVarWChar, 50
tbl.Columns.Append "email", ADOX.DataTypeEnum.adVarWChar, 50
tbl.Columns.Append "Home", ADOX.DataTypeEnum.adVarWChar, 50
tbl.Columns.Append "Logo", ADOX.DataTypeEnum.adLongVarBinary
Set col = Nothing
Set tbl = Nothing
Set cat = Nothing
Set cnn = Nothing
End Sub
