Tengo el siguiente codigo
Código:
encurso es un entero que cuyos valores pueden ser 1 o 0, entonces cuando en la base de datos el experimento que tiene el id que le especifico cambia a 1 o a 0 segun lo que necesite, ahora esa funcion no me esta haciendo el cambio, si hago directamente la consulta en la base de datos Access me lo hace bien (UPDATE Experimento SET En_Curso=1 WHERE ID_experimento=10 por ejemplo), que puedo estar haciendo mal en ese codigo?Dim strSQL As String Dim str1 As String Dim idExperimento As Integer On Error GoTo cambioEnCursoError Set cmd = New ADODB.Command Set cmd.ActiveConnection = conexion Set rs = New ADODB.Recordset strSQL = "UPDATE Experimento SET En_Curso =" & encurso & " WHERE ID_experimento=" & id cmd.CommandText = strSQL cmd.Execute cambioEnCursoExperimento = True Exit Function '........................................... cambioEnCursoError: cambioEnCursoExperimento = False MsgBox "ERROR: " & Err.Description & Err.Number ' MsgBox "Dio un error al ingresar el experimento" Exit Function
Saludos