Código fuente vb de Tomorrow Technology
Atenuar cn como nuevo ADODB. Relación
Atenuar rs como nuevo ADODB. Recordset
Mostrar SQL como una cadena
Lo siguiente es agregar los datos del primer campo de la tabla de datos a Combo1 para proporcionar a los usuarios opciones de búsqueda.
Subform_Load privado()
cn. ConnectionString = " proveedor = Microsoft . jet . oledb . 4.0; " amp_
" Información de seguridad persistente = Fuente de datos falsa = " ampApp. Caminos y caminos. " \1.mdb "
cn. abierto
si rs. Estado = adStateOpen Entonces rs. Cerrar
SQL = "seleccionar * del nombre de la tabla"
rs. UbicaciónCursor = adUseClient
rs. Open SQL, cn, adOpenKeyset, adlock pesimista
combo1. Borrar
En caso de error, continúe con el siguiente paso
rs. MoveFirst
Hazlo sin hacerlo. Fin del archivo
combo1. Términos adicionales. campo(1). Valores
rs. Siguiente paso
Bucle
Adaptador final
A continuación se muestra una búsqueda de los datos en Combo1.
Subcombinación privada 1_Change()
SQL = "seleccione * del nombre de la tabla, donde el nombre de la columna es similar a ""; combo 1. text amp;'"
Si rs. Estado = adStateOpen Entonces rs. Cierre
rs. UbicaciónCursor = adUseClient
rs. Abra SQL, cn, adOpenKeyset, adlock pesimista
Establezca DataGrid1. Fuente de datos = rs
Actualización de DataGrid1
Conector final