Programación General > Visual Basic 6.0 e inferiores

 Ayuda Con Update!!!

(1/1)

mi69:
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 :blink:


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

Anderea:
Aveces a mi me da ese error cuando se me ha olvidado que he borrado un control en el formulario o cuando estoy poniendo mal los nombres, verifica eso primero, puede ser un error de dedo.
Si no es nada de esto manda el codigo para revisartelo, porque pueden ser varias cosas.

mi69:
Este es el código completo que uso para ejecutar ese comando

Gracias :kicking:

Privare Sub cdmUpdateTexto_Click()

Dim Cancel As Integer

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

Navegación

[0] Índice de Mensajes