Cómo generar la información consultada por SQL en el cuadro de texto de VB

= = = = Comience a leer la base de datos (busque el contenido de visualización de datos) = = = =

Atenúe UserQuery como un nuevo adodb. Recordset

Atenuar I como un número entero

Atenuar cadena como cadena

Atenuar LtItm como ListItem

Atenuar DBstr como cadena

Seleccione el contenido de la consulta del nombre de la tabla, donde nombre del campo = 'contenido de la consulta'

DBstr = " select * from TelUser donde TelNum = ' " amp;

Consulta difusa, seleccione el contenido de la consulta del nombre de la tabla, donde el nombre del campo es similar a 'contenido de la consulta'

DBstr = " seleccione * de TelUser donde TelUser le gusta "; " & trim(frm find . txt user . text) & '"

Abra el registro correspondiente en la base de datos y abra el conjunto de datos.

Abra DBstr, DBCnn, adOpenStatic. , adLockReadOnly

Si el recuento de registros es = 0, no se encuentra el registro correspondiente.

MsgBox "¡El registro no existe! "ampvbCrLf amp;"¡Vuelva a ingresar! ",, "La búsqueda falló"

Salir de la función

Elseifcheck.record count = 1 para encontrar el registro único.

Deje que el valor del campo en el La base de datos se mostrará en el cuadro de texto en.

Me.txtID.Text = UserQuery("TelID").

Me.txtNum.Text = UserQuery("TelID"). /p>

Preste atención al juicio si el valor de la base de datos está vacío; de lo contrario, se producirá un error

Si UserQuery value lt gt" entonces

Me.txtRem. .Text = UserQuery("TelRem").Value

Otro

Me.txtRem.Text = " "

Si... Fin

Cerrar base de datos

UserQuery.Close

"Else" encontró varios registros

Utilice el control LtItm para mostrar registros

p>

Para i = 1 para UserQuery.

Establezca LtItm = Me.ListView2.ListItems.Add()

LtItm Number").Value.

LtItm.Child(1) = UserQuery.Fields("TelUser").Value

LtItm.Child(2) = UserQuery.fields(" TelLayer").Value

Si UserQuery.Field("TelRem").Value lt gt""Entonces

LtItm.Child(3) = UserQuery.Field("TelRem"

Termina si

Consulta de usuario.

Siguiente

Siguiente I

UserQuery. Cerrar

Terminará si...

= = = = =Fin de la lectura de la base de datos (búsqueda de contenido de visualización de datos) = = = =

Lo anterior está escrito por el código fuente del programa hermano menor. Como referencia.

El método es el siguiente

me. texto 1. texto = campos de objeto ("nombre de campo"). Valor

me .text 1 .text = campos de objeto (posición del campo, comenzando desde 0). Valor

Preste atención para determinar si el valor de la consulta está vacío.