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
4
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 "
