1
Inicie Microsoft Visual Basic Express, haga clic en " Nuevo proyecto ... " en el panel izquierdo de la pantalla. Seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2
doble clic en " DataGridView " en el panel " Toolbox" para añadir un nuevo control de vista de cuadrícula de datos. Añadir un nuevo botón con la misma técnica .
3
doble clic en el formulario para crear un evento de carga del formulario. Escriba el siguiente código para agregar datos al control de la red : .
Me.DataGridView1.ColumnCount = 2
DataGridView1
RowHeadersVisible = False
. Columnas ( 0 ) . Name = " Tipo"
. Columnas ( 1 ) . Name = " Status"
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
extremo con
row0 As String () = {" iPad ", " vendido" }
fila1 As String () = {" monitor" , "Disponible "}
Me.DataGridView1.Rows
. Añadir ( row0 )
. Añadir ( fila 1 )
End con fotos de 4
Haga clic en " Form1.vb [ Diseño ] "y haga doble clic en " Button1 "para crear un evento de clic del botón. Escriba el siguiente código para declarar nuevas variables que va a utilizar para exportar los datos de la vista de cuadrícula de datos :
dbConn As OleDbConnection
Dim DBCommand Como OleDbCommand
SQLString Dim As String
5
Escriba lo siguiente para crear y abrir la conexión de acceso :
dbConn = new OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ Northwind 2007.accdb ; ")
dbConn.Open ()
6
Crear una nueva tabla en Access , donde los datos se pueden exportar a :
SQLString =" CREATE TABLE gridData ( tipo de texto, texto de estado ) "
DBCommand = New OleDbCommand ( SQLString , dbConn )
dbCommand.ExecuteNonQuery ()
7
Recorrer cada celular en el control de vista de cuadrícula de datos y exportar los datos a la tabla de Access que creó en el paso anterior con el código siguiente :
para cada fila como DataGridViewRow en DataGridView1.Rows
SQLString = " INSERT INTO gridData (Tipo , Estado)"
SQLString = SQLString & " VALUES ( '" & row.Cells.Item ( "Type" ) . Valor & "' ",
SQLString = SQLString & " '" & row.Cells.Item ( "Estado" ) . Valor & "' ) "
DBCommand = New OleDbCommand ( SQLString , dbConn )
dbCommand.ExecuteNonQuery ()
Siguiente
dbConn.Close ()
8
Press "F5 " para ejecutar el programa y haga clic en " Button1 " para exportar los datos a Access.