SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mi69 en Sábado 16 de Octubre de 2004, 15:13

Título: Ayuda Con Update!!!
Publicado por: mi69 en Sábado 16 de Octubre de 2004, 15:13

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

Título: Re: Ayuda Con Update!!!
Publicado por: Anderea en Sábado 16 de Octubre de 2004, 18:45

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.

Título: Re: Ayuda Con Update!!!
Publicado por: mi69 en Sábado 16 de Octubre de 2004, 19:02

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