staticjun
17 de Mayo del 2004

Hola a todos. Soy nuevo en estos foros, espero que me puedan ayudar.

Estoy tratando de hacer un UPDATE a una tabla en SQL Server.

Estoy usando las siguientes instrucciones:

Dim cmd As ADODB.Command
Dim cad As String
Dim cad2 As String

opc = MsgBox("¿Desea guardar los cambios hechos a los datos del Administrador?", vbYesNo + vbQuestion, "Continuar")
If opc = vbYes Then
cad2 = Right(lstAdmin.Text, 3)
cad = Mid(cad2, 2, 1)
Set cmd = New ADODB.Command
Call conectar
cmd.ActiveConnection = cn
cmd.CommandText = "UPDATE ADMINISTRADOR SET strApellidoPaterno = '" & txtAdmin(0).Text & "', strApellidoMaterno = '" & txtAdmin(1).Text & "', strNombre = '" & txtAdmin(2).Text & "', strObservaciones = '" & rtbObservaciones.Text & "' WHERE intIDAdministrador = " & cad & ""
cmd.CommandType = adCmdText
cn.Close
End If

Por alguna extraña razón, en la parte de cmd.commandtext me dice: "Se requiere un objeto"

Cuando le doy clic a depurar, me envía a la línea donde especifico el query de sql.

Gracias por la ayuda