-
Cómo agregar el acceso de campo con Visual Basic
-
Conocer cómo agregar un nuevo campo a una tabla de base de datos 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 el paquete de Microsoft Office. VB.NET es un lenguaje de programación orientado a objetos menudo preferido por los programadores por su facilidad de uso. En unos pocos pasos se puede escribir código VB.NET para crear una nueva tabla, a continuación, utiliza el "ALTER TABLE" instrucción 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 de la ventana "Nuevo proyecto".
2 Pulse la tecla "Ctrl" y "A", a continuación, pulse "Borrar" para borrar todo el código existente.
3 Copia y pega este código en su módulo "Module1.vb".
Imports System.Data.OleDb
Module Module1
Sub Main()myConnection tenue Como OleDbConnection
myCommand tenue Como OleDbCommand
mySQLString Dim como secuencia
myConnection = nuevo OleDbConnection _
( "Provider = Microsoft.Jet.OleDb.4.0; Data Source = D: \ Temp \ myTextData.mdb;")
myConnection.Open ()
mySQLString = "CREATE cutomers CUADRO DE TEXTO (nombre, apellido texto)"
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 cutomers añadir texto GÉNERO;"
myCommand = New OleDbCommand (mySQLString, myConnection)
myCommand.ExecuteNonQuery ()
MsgBox ( "creó la tabla de clientes y de añadir un nuevo campo con éxito!")
End Sub
Módulo fin
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 pulsando la tecla "F5".
