Saber como adicionar um novo campo a uma tabela de banco de dados Microsoft Office Access usando Visual Basic.NET pode fazer seu programa mais dinâmico. Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office. VB.NET é uma linguagem de programação de computadores orientada a objetos , muitas vezes preferido pelos programadores para a sua facilidade de uso. Em poucos passos você pode escrever código VB.NET para criar uma nova tabela, em seguida, usar a instrução " ALTER TABLE" para criar um novo campo. Instruções
1
Abra o Microsoft Visual Basic Express e clique em " New Project ... " no painel esquerdo da tela. Clique duas vezes em " Console Application " no painel central da janela "New Project " .
2
Pressione " Ctrl" e "A", em seguida, pressione "Delete" para apagar todos os códigos existentes .
3
Copie e cole este código para o seu módulo " Module1.vb " .
Imports System.Data.OleDb
module Module1
Sub Main () Dim
myConnection Como OleDbConnection
Dim myCommand Como OleDbCommand
Dim mySQLString As String
myConnection = New OleDbConnection _
( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D: \\ Temp \\ myTextData.mdb ;")
myConnection.Open ()
mySQLString = "CREATE cutomers mesa ( TEXTO FIRST_NAME , LAST_NAME TEXT) "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
mySQLString =" INSERT INTO cutomers VALUES ( ' JOHN ', ' Smith' ) "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
mySQLString =" INSERT INTO cutomers VALUES (' JOHN ',' Smith ' ) "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
mySQLString = " ALTER TABLE ADD cutomers GÊNERO texto; "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
MsgBox (" Você criou a tabela de clientes e adicionou um novo campo com sucesso! " )
End Sub End Module
4
Editar esta linha de código e digite o nome do seu banco de dados Access.
( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: \\ CustomerData.mdb ; ")
Execute o programa pressionando " F5 "
.
