Pontos
Moedas
Posts
Like
Warning![[Tutorial]VisualBasic - Adicionar campos em tabela existente Left_bar_bleue](https://2img.net/i/fa/i/left_bar_bleue.jpg)
![[Tutorial]VisualBasic - Adicionar campos em tabela existente Right_bar_bleue](https://2img.net/i/fa/i/right_bar_bleue.jpg)
Use a instruçao ADD COLUNM
'executa a sub da conexao
CÓDIGO:
Private Sub Form_Load()
conectar
End Sub
'string de conexao
CÓDIGO:
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
CÓDIGO:
'adiciona os campos Notas1 e Notas2 na tabela alunos
CÓDIGO:
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
'executa a sub da conexao
CÓDIGO:
Private Sub Form_Load()
conectar
End Sub
'string de conexao
CÓDIGO:
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
CÓDIGO:
- Código:
Private Sub Command1_Click()
adicionar_campo_na_tabela
End Sub
'adiciona os campos Notas1 e Notas2 na tabela alunos
CÓDIGO:
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
