[Tutorial]Acrescentar Tabelas no BD Acess pelo VB

[dwango]

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

Atenciosamente,
ex_SheL$

[over.hacker]

(ý) e isso ae