Cómo agregar Campo Acceso con Visual Basic

Conocer cómo agregar un nuevo campo a una tabla de base de datos de Microsoft Office Access utilizando Visual Basic.NET puede hacer que su programa sea más dinámico. El acceso es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. VB.NET es un lenguaje de programación orientado a objetos a menudo preferido por los programadores para su facilidad de uso . En pocos pasos se puede escribir código VB.NET para crear una nueva tabla, a continuación, utilizar la instrucción " ALTER TABLE" para crear un nuevo campo . Instrucciones
1

Abra Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla. Haga doble clic en " Aplicación de consola " en el panel central del "Nuevo proyecto " Ventana .
2

Presione " Ctrl" y " A ", a continuación, pulse "Borrar " para borrar todo el código existente.
Página 3

Copia y pega este código en su módulo " Module1.vb " .

Imports System.Data.OleDb

Module Module1
< p> Sub Main ()

myConnection As OleDbConnection

Dim MyCommand Como OleDbCommand

mySQLString dévil como secuencia

myConnection = New OleDbConnection _

( " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = D: \\ temp \\ myTextData.mdb ;")

myConnection.Open ()

mySQLString = "CREATE cutomers MESA ( FIRST_NAME TEXTO, TEXTO LAST_NAME ) "

MyCommand = New OleDbCommand ( mySQLString , myConnection )

myCommand.ExecuteNonQuery ()

mySQLString = " INSERT INTO VALORES cutomers ( 'John ', ' SMITH ') "

MyCommand = New OleDbCommand ( mySQLString , myConnection )

myCommand.ExecuteNonQuery ()

mySQLString = " INSERT INTO VALORES cutomers ( ' JOHN ',' SMITH ') "

MyCommand = New OleDbCommand ( mySQLString , myConnection )

myCommand.ExecuteNonQuery ()

mySQLString =" cutomers ALTER TABLE ADD TEXTO DE GÉNERO ; "

MyCommand = New OleDbCommand ( mySQLString , myConnection )

myCommand.ExecuteNonQuery ()

MsgBox ( " Tú has creado la tabla clientes y ha añadido un nuevo campo con éxito ! ")

End Sub End Module

Editar esta línea de código y escriba el nombre de su base de datos Access .

( " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = C : \\. CustomerData.mdb ; ")

ejecutar el programa con la tecla" F5 "