Red de conocimiento informático - Problemas con los teléfonos móviles - Escribir programación de bases de datos de acceso simple usando ADO en VB6

Escribir programación de bases de datos de acceso simple usando ADO en VB6

'Haga referencia a la biblioteca Microsoft Activex Data Objects 2.7 en el proyecto.

'Luego dibuje un control de comando e ingrese el siguiente código en el evento de clic (clic) del control de comando

'El siguiente es el código para consultar registros:

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Set cn = Nueva conexión ADODB

Set rs = Nueva ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Base de datos Contraseña = 111;Data Source=" & App.Path & "\1.mdb" 'Reemplace 1.mdb con su base de datos

cn.Open

rs.Open "select * de la Tabla 1 donde las condiciones de consulta", cn, adOpenStatic, adLockOptimistic

do while not rs.eof

'La programación aquí genera resultados de consulta

rs.MoveNext

hacer mientras no rs.eof

' p>

bucle

rs.Close

'Modificar registro:

Atenuar cn como ADODB.Connection

Atenuar rs como ADODB.Recordset

Establecer cn = Nuevo ADODB.Connection

Establecer rs = Nuevo ADODB. Conjunto de registros

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB .4.0;Persist Security Info=False;Jet OLEDB:Contraseña de la base de datos = 111;Data Source=" & App.Path & "\1. mdb" '1.mdb Reemplace con su base de datos

cn. Abra

rs.Open "seleccione * de la Tabla 1 donde las condiciones de consulta", cn, adOpenStatic, adLockOptimistic

hacer mientras no rs.eof

rs! campo 1=Contenido

rs!Campo 2=Contenido

...

rs.MoveNext

bucle

rs.Update

rs.Close

'Agregar registro:

Atenuar cn como ADODB.Connection

Atenuar rs como ADODB.

Establecer cn = Nuevo ADODB.Connection

Establecer rs = Nuevo ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0 ;Persist Security Info=False;Jet OLEDB:Contraseña de base de datos

d = 111;Data Source=" & App.Path & "\1.mdb" 'Reemplace 1.mdb con su base de datos

cn.Open

rs.Open "select * de la Tabla 1 donde la condición de consulta", cn, adOpenStatic, adLockOptimistic

do while not rs.eof

rs.AddNew

rs!Field 1=content

rs!Field2=Contenido

...

rs.MoveNext

bucle

rs. /p>

rs.Cerrar

上篇: La línea de comandos de Windows no admite FTP pasivo. ¿Cómo cargar archivos al servidor FTP regularmente escribiendo un proceso por lotes de Windows? 下篇: "Amor en la Antártida": Tengo miedo de que el viento pare, pero también tengo miedo de que se levante el viento.

Artículos populares