Red de conocimiento informático - Aprendizaje de código fuente - Código fuente vb de Tomorrow Technology

Código fuente vb de Tomorrow Technology

A continuación se muestran algunos ejemplos relevantes:

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