Red de conocimiento informático - Material del sitio web - El error de sintaxis al conectarse a ACCESS en el código fuente de VB (falta el operador en la expresión de consulta '17saleid=17') es:

El error de sintaxis al conectarse a ACCESS en el código fuente de VB (falta el operador en la expresión de consulta '17saleid=17') es:

===Marcar si la base de datos está conectada==

'Comparar este

IsConnect privado como booleano

'===Marcar el acceso después de ejecutar Connect( ) función Número de veces en la base de datos==

Private Connect_Num As Integer

Private cnn As ADODB.Connection 'Objeto de conexión a la base de datos

Private rs As ADODB.Recordset ' Objeto Recordset que guarda el conjunto de resultados

'Conectarse a la base de datos

Private Sub Connect()

'Devuelve si el indicador de conexión es verdadero.

De lo contrario, se producirá un error

If IsConnect = True Then

Salir de Sub

End If

'Se utiliza una nueva palabra clave para crear una nuevo objeto cnn

Set cnn = New ADODB.Connection

cnn.State lt;gt;adStateOpen Then

'Si la conexión no tiene éxito, muestra un mensaje mensaje y salga del programa

MsgBox "Error en la conexión de la base de datos"

End

End If

'Establece el indicador de conexión para indicar que está conectado a la base de datos

IsConnect = True

End Sub

'Desconectarse de la base de datos

Private Sub Disconnect()

Dim Rc As Long

'Si el indicador de conexión es falso, regresa directamente

Si IsConnect = False Then

Salir de Sub

End If

'Cerrar la conexión

cnn.

IsConnect = False

End Sub

'Usa Connect_Num para controlar la base de datos Connect

Public Sub DB_Connect()

Connect_Num = Connect_Num 1

Connect

Fin Sub

Public Sub DB_Disconnect()

Si Connect_Num gt; = CONNECT_LOOP_MAX entonces

Connect_Num = 0

Desconectar

End If

End Sub

'Forzar cerrar la base de datos a la que se accede a través del método api y restablecer el contador

Public Sub DBapi_Disconnect()

Connect_Num = 0

Desconectar

End Sub

'Ejecutar instrucción de operación de base de datos

Public Sub SQLExt(ByVal TmpSQLstmt As String)

' Crear objeto de comando cmd

Atenuar cmd como nuevo ADODB.CommandText = TmpSQLstmt

' MsgBox TmpSQLstmt

'Ejecutar comando

cmd.

Recordset

'Conectarse a la base de datos

DB_Connect

'Establece la propiedad ActiveConnection de primero y especifica la conexión de base de datos asociada con ella

Establecer primero .ActiveConnection = cnn

'Establecer tipo de cursor

rst.ActiveConnection = cnn

Establecer rst.ActiveConnection = cnn

Establecer rst.ActiveConnection = cnn

'Establece el tipo de cursor

rst.ActiveConnection = cnnCursorType = adOpenDynamic

'Establece el tipo de bloqueo

rst.LockType = adLockOptimistic

'Abrir conjunto de registros

rst.Open TmpSQLstmt

'Devolver conjunto de registros

Establecer QueryExt = rst

Función final