Adicionar campos em tabela existente

[Macêdo]

Use a instruçao ADD COLUNM

'executa a sub da conexao

Private Sub Form_Load()
conectar
End Sub

'string de conexao

Private Sub conectar()

cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "\BD.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open

End Sub

'executa a sub para criar os campos na tabela

Private Sub Command1_Click()
adicionar_campo_na_tabela
End Sub

'adiciona os campos Notas1 e Notas2 na tabela alunos

Private Sub adicionar_campo_na_tabela()

On Error GoTo campo_existe
sSQL = "ALTER TABLE Alunos ADD COLUMN Notas1 TEXT(25), Notas2 TEXT(25);"
cnn.Execute sSQL
cnn.Close

campo_existe:
If Err.Number = 2147217887 Then
End If

End Sub

Editado Junho 10, 2009 por Macêdo