Visual Basic - error al tratar de grabar

Life is soft - evento anual de software empresarial
   
Vista:

error al tratar de grabar

Publicado por yoice (11 intervenciones) el 03/12/2008 13:51:56
hola tengo el siguiente codigo en mi form...
que es para grabar los datos en una bd, pero me arroja error al presionar el boton grabar
y no he conseguido ver cual es el error.
les dejo el codigo

Private Sub cmdGrabar_Click()
Timer1.Enabled = False
lblEditando.Caption = ""
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM farmacos WHERE codigo LIKE '" & txtCodigo & "'", cn, adOpenDynamic, adLockOptimistic
rs!Codigo = txtCodigo.Text
rs!Fecha = CDate(txtFecha)
rs!Guia = txtGuia.Text
rs!Proveedor = txtProveedor.Text
rs!Cantidad = CLng(cboCantidad.Text)
rs!Devolucion = txtDevolucion.Text
rs!Presentacion = txtPresentacion.Text
rs!Medicamento = txtMedicamento.Text
rs!Trapi = chkTrapi.Value
rs!Vivanco = chkVivanco.Value
rs!Crucero = chkVivanco.Value
rs!Cayurruca = chkCayurruca.Value
rs!Mantilhue = chkMantilhue.Value
rs!Carimallin = chkCarimallin.Value
rs!Sector1 = txtSector1.Text
rs!Sector2 = txtSector2.Text
rs!Sector3 = txtSector3.Text
rs!Procedimiento = txtProcedimiento.Text
rs!ClinicasDentales1 = txtDentales1.Text
rs!ClinicasDentales2 = txtDentales2.Text
rs!ClinicasDentales3 = txtDentales3.Text
rs!ClinicasDentales4 = txtDentales4.Text
rs!IRA = txtIra.Text
rs!ERA = txtEra.Text
rs!SalaMotora = txtSala.Text
rs!Prestamos = txtPrestamos.Text
rs!Saldo = txtSaldo.Text
rs.Update
Call CargaListView("SELECT * FROM farmacos", View1)
MsgBox "Se ha actualizado los datos", vbInformation
Call ClearControls(Me)
txtFecha.SetFocus


cmdEditar.Enabled = True
End Sub

Espero me puedan ayudar PORFAVOR SE LOS AGRADEZCO MUCHO
Chao
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder