Acrescentando tabelas no BD Access pelo VB

[Macêdo]

Com a conexão aberta, utilize a instruição CREATE TABLE para criar tabelas e seus campos no Access:

'no load do form chamamos a sub para abrir a conexão

Private Sub Form_Load()
conectar
End Sub

'no click de um botão chamamos a sub para criar a tabela e seus campos

Private Sub Command1_Click()
criar_tabela_campos
End Sub

'sub com a 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

'codigo que cria a tabela (contatos) com os campos Cod e Nome

Private Sub criar_tabela_campos()

On Error GoTo existe

sSQL = "CREATE TABLE Contatos (cod integer, nome text(150));"
cnn.Execute sSQL

existe:
If Err.Number = 2147217900 Then
End If

End Sub

Editado Junho 10, 2009 por Macêdo