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 "