| Usuario |
Ayudaaaa!!! |
Desconocido
|
| Enviado - 21/8/2003 |
| ? |
Hola a todos!
Estoy tratando de actualizar unos datos usando vb y sql, pero me retorna el siguiente error:
Error '3704' en tiempo de ejecuci?n:
La operaci?n no est? permitida si el objeto est? cerrado.
y se ubica en: datos.Update
Les env?o lo que tengo y agradezco su ayuda!
Option Explicit
Private conexion As ADODB.Connection
Dim datos As ADODB.Recordset
Private Sub btnaceptar_Click()
Dim sql As String
sql = "UPDATE clientes2 SET cod_modelo = '" & cod_modelo & "', nombre = '" & nombre & "', cedula = '" & cedula & "', direccion = '" & direccion & "', telefono = '" & telefono & "', num_modelo = '" & num_modelo & "', precio = '" & precio & "', monto_abono = '" & monto_abono & "' where cedula = '" & cedula & "'"
Set datos = conexion.Execute(sql)
btnmodificar.Enabled = True
btnaceptar.Enabled = False
btncancelar.Enabled = False
btnsalir.Enabled = True
datos.Update
Adodc1.Recordset.Update
End Sub
Private Sub Form_Load()
Set conexion = New ADODB.Connection
Set datos = New ADODB.Recordset
conexion.Open "Driver={SQL Server};Server=M;Uid=SA;Pwd=;Database=bdcalzados"
datos.Open "SELECT * FROM clientes2", conexion, adOpenDynamic, adLockOptimistic
' Asignar a cada uno de los texboxes el campo de la tabla
cod_modelo.DataField = "cod_modelo"
nombre.DataField = "nombre"
cedula.DataField = "cedula"
direccion.DataField = "direccion"
telefono.DataField = "telefono"
num_modelo.DataField = "num_modelo"
precio.DataField = "precio"
monto_abono.DataField = "monto_abono"
End Sub
|
| ? |
|
|
|
?Microsoft Certified
');}
document.write('