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:
'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