primero tendrá que crear la tabla de base de datos de texto que el programa de Visual Basic se abrirá y consulta. Cree un directorio llamado "C: \\ DB" y crear un nuevo archivo , texto plano en ese directorio llamado " MyTable.txt . " Abra el archivo e introduzca estos datos :
título, año , DirectorStar Wars, 1977 , George LucasExcalibur de 1980 , John Boorman
Crear el proyecto de Visual Basic
Cierre el archivo , abra "Visual Basic IDE " ( entorno de desarrollo integrado) y cree un nuevo proyecto EXE estándar (> nuevo archivo de proyecto , EXE estándar) . En la ventana de diseño de la forma , arrastre un botón de comando en la barra de herramientas y colóquelo en el formulario. Haga doble clic en el botón para entrar en el evento Command1_Click , e introduzca el código en ese subprograma:
Private Sub Command1_Click () ConnectionText Dim As New ADODB.ConnectionDim recordSetObj como nuevo camino ADODB.RecordsetDim Como
secuencia
path = "C: \\ DB \\ "
connectionText.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = " _ & ruta & " ; propiedades extendidas = texto ' ; HDR = YES; FMT = delimitado "
recordSetObj.Open " SELECT * FROM myTable.txt DONDE Año = 1977 ; " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo Aunque no recordSetObj.EOFMsgBox recordSetObj ( 0 ) &", "& recordSetObj ( 1 ) & ", " & recordSetObj ( 2 ) recordSetObj.MoveNextLoop
End Sub
ejecutar el programa
Ejecute el programa presionando "F5 ". Presione el botón del formulario cuando aparezca el formulario. Cierre el programa y regresar al ambiente de código de explorar y entender el código .
El método " connectionText.Open " establece la conexión con la base de datos . Observe los varios puntos y coma en la cadena de conexión . Estos personajes pares separados de campos que el motor de base de datos Microsoft Jet necesita para conectarse a la base de datos . Cada par consta de un nombre y el valor de ese nombre, por ejemplo, Proveedor y Microsoft.Jet.OLEDB.4.0 . Otro par es de origen de datos y la ruta , donde el Camino indica la carpeta (C: \\ DB ) la tabla de base de archivo de texto que se almacena pulg El motor de base de datos Microsoft Jet ve esa carpeta como una base de datos
recordSetObj . . instrucción Open hace la consulta real tabla de SQL . Puede ver esta consulta como abrir un conjunto de registros de la tabla . Cuando la instrucción Open completa , que conjunto está contenido en el recordSetObj . El bucle Do While recorre el conjunto de registros , utilizando el método MoveNext para desplazarse de un conjunto a la siguiente hasta que se alcance la condición EOF .
Cambiar la consulta
Prueba cambiar la consulta SQL que incluya una cláusula WHERE, por ejemplo, DONDE Año = 1977 . A continuación , crear su propia base de datos y consultar utilizando este programa como modelo.