Este es solo un ejemplo simple de subprograma VB, pero contiene estas palabras clave: VB6.0, ADO, Access
Entorno: Visual Basic 6.0 Enterprise Edition (no la versión optimizada, de lo contrario carecerá de los controles necesarios)
Base de datos: base de datos de acceso, la base de datos es xs.mbd, la tabla incorporada es xj
Resultado: VB usa ADO para conectarse a la base de datos de acceso, consulta todos los datos en la tabla xj y luego envía los resultados de la consulta a la ventana en un bucle.
Código:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'Objeto de conexión ADO y conjunto de registros Dim strSQL As String 'Cadena SQL db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Fuente de datos =" & App.Path & "/xs.mdb" 'Conexión de base de datos db.Open 'Abre la base de datos strSQL = "select * from xj" 'Cadena SQL RS.Open strSQL, db, 3, 1 'Consulta la tabla de datos Hazlo mientras no RS.EOF '¡Bucle para generar los resultados de la consulta! ¡Imprimir RS! ¡Clase de RS! Imprime los resultados de salida en la ventana RS.MoveNext 'Mover registro hacia abajo LoopRS.Close 'Cerrar el conjunto de registros Establecer RS = NothingEnd Sub
Lo anterior es el contenido completo de este artículo, espero que les guste a todos.