Olá usuário , seja muito bem vindo ao nosso fórum !

Se esta visitando nosso fórum e de alguma forma nós te ajudamos com algum tutorial, download, espero que colabore com a gente se registrado no fórum que não leva mais que 1 minuto.

Outras formas de colaborar com o nosso fórum:

-> Se logando apos o registro.
-> Entrando diariamente.
-> Postando novos conteúdos no fórum como tutoriais, downloads, piadas, memes, notícias, vídeos, etc..
-> Leia nossas regras e participe de nossas promoções.

Até mais , aguardo seu registro e sua colaboração com o fórum.

Você não está conectado. Conecte-se ou registre-se

[Tutorial]VisualBasic - Adicionar campos em tabela existente

Ir em baixo  Mensagem [Página 1 de 1]

!skipper

avatar
RBFounder

RBFounder
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:
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

Ver perfil do usuário http://www.thunderzone.co.cc

#Blow

avatar
RBConhecido

RBConhecido
Muito bom tutorial parabéns

Ver perfil do usuário https://twitter.com/

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum