Red de conocimientos sobre prescripción popular - Enciclopedia de Medicina Tradicional China - Me gustaría hacerle esta pregunta: utilicé VB para escribir un formulario para consultar a los empleados en segundo plano, pero después de ejecutarlo, no se permitió la operación al cerrar el objeto.

Me gustaría hacerle esta pregunta: utilicé VB para escribir un formulario para consultar a los empleados en segundo plano, pero después de ejecutarlo, no se permitió la operación al cerrar el objeto.

ByVal (txtSQL es una cadena, dgRef es la cuadrícula de datos) es un número entero

Muestra rsData como ADODB. Conjunto de registros

establecer datos RS = nuevo conjunto de registros ' * *Crear una instancia de un objeto de conjunto de registros.

Mostrar el resultado como una cadena

* * result = exesql (txtsql, rsdata, false)' * *Esto es desconcertante. ¿ExeSQL es un procedimiento almacenado? ¿Aún

Función con valores de tabla o He Dongdong? Descubra los parámetros entre paréntesis, debe haber algún problema con esta oración.

' RsData.open txtSQL, conn '****Abre el conjunto de registros. Se supone que ha abierto un objeto de conexión válido.

Si no hay una conexión válida, primero debes crear un objeto de conexión y abrirlo. Puede consultar información relevante.

Si rsData. Recuento de registros lt gt0 Entonces hay algo que depurar * * porque el conjunto de registros rsData no se ha abierto antes.

Así que ven aquí para depurar.

Establecer dgRef. Fuente de datos = rsData

RefData = rsData. Recuento de registros

Otro

MsgBox "¡Los datos están vacíos!", vbOKOnly vbaclouse, "Advertencia"

RefData = 0

Si. .. Finalizará

Finalizar función