Microsoft Office Access
Northwind base de datos
Mostrar más instrucciones
1
Abra la base de datos Access Northwind de Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.
2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
3
Escriba lo siguiente para crear un nuevo subprograma:
cellArrayToString Sub Private ()
< p > Pulse la tecla " Enter".
4
Escriba lo siguiente para crear nuevas variables:
strSQL As String Dim
db As Database
rst As Recordset
Dim cellIntArray ( 3 ) As Integer
X As Integer
miCadena dévil como secuencia
Set db = CurrentDb
Página 5
Escriba el siguiente para crear una nueva tabla y sumar tres nuevos récords :
strSQL = " CREATE TABLE tblData ( id_num Number) ; "
DoCmd.SetWarnings false
DoCmd.RunSQL ( strSQL )
strSQL = "INSERT INTO VALORES tblData ( 0 ) ; "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO VALORES tblData (1); "
DoCmd.RunSQL ( strSQL )
strSQL =" INSERT INTO VALORES tblData ( 2 ), "
DoCmd.RunSQL ( strSQL )
6
Escriba lo siguiente para abrir un nuevo conjunto de registros y consultar todos los datos de " tblData ": .
Set rst = db.OpenRecordset ( " Seleccionar tblData * de tblData ; " )
rst.MoveLast
rst.MoveFirst
7
Escriba lo siguiente para recorrer todos los registros y agregarlos a la matriz de enteros :
Para X = 0 Para rst.RecordCount - . 1
cellIntArray (X ) = rst.Fields ( 0 ) Valor
rst.MoveNext
Siguiente X
8
Escriba lo siguiente para convertir la matriz celular Integer a una variable String :
para X = 0 a 2
miCadena = miCadena y cellIntArray (X ) y ","
Siguiente X
9
Escriba lo siguiente para visualizar el contenido de la variable " miCadena " a través de un cuadro de mensaje :
MsgBox miCadena
Escriba lo siguiente para liberar las variables de la memoria :
rst.Close
db.Close