Ayuda con UPDATE!!!
Hola
Por favor, necesito ayuda con este código.
Cuando lo ejecuto me aparece Error 424 en tiempo de ejecución: Se requiere un objeto
Gracias
If grdDataGrid.Columns(5).Text = "Modificar registro" And grdDataGrid.Columns(37).Text = "<>" Then
cn.Execute "UPDATE MiTabla Set Texto = '" & datcboTexto & "' Where Texto =
"<>" And Option = Modificar registro"
datPrimaryRS.Refresh
grdDataGrid.Refresh
Else
MsgBox "No puede justificar los cambios" _
+ Chr(10) + "verifique los parámetros", vbExclamation, "Error"
Cancel = True
End If
End Sub
Por favor, necesito ayuda con este código.
Cuando lo ejecuto me aparece Error 424 en tiempo de ejecución: Se requiere un objeto
Gracias
If grdDataGrid.Columns(5).Text = "Modificar registro" And grdDataGrid.Columns(37).Text = "<>" Then
cn.Execute "UPDATE MiTabla Set Texto = '" & datcboTexto & "' Where Texto =
"<>" And Option = Modificar registro"
datPrimaryRS.Refresh
grdDataGrid.Refresh
Else
MsgBox "No puede justificar los cambios" _
+ Chr(10) + "verifique los parámetros", vbExclamation, "Error"
Cancel = True
End If
End Sub
No sé en qué línea te tira el error, pero hay un error de sintaxis en la sentencia SQL.
Cámbia la sintaxis de la cláusula WHERE del cn.Execute. Las condiciones del WHERE deben ir entre comillas simples, o sea:
en vez de "<>" debe ir '<>'
en vez de Modificar Registro debe ir 'Modificar registro'
Saludos!
Bartolom
Chile
Cámbia la sintaxis de la cláusula WHERE del cn.Execute. Las condiciones del WHERE deben ir entre comillas simples, o sea:
en vez de "<>" debe ir '<>'
en vez de Modificar Registro debe ir 'Modificar registro'
Saludos!
Bartolom
Chile
