Visual Basic - Problema Ado y editmode

Life is soft - evento anual de software empresarial
   
Vista:

Problema Ado y editmode

Publicado por adrian (3 intervenciones) el 05/05/2009 00:05:44
Hola chicos, siempre programe con Data y quiero pasar a ADO que casi todo el mundo me lo recomienda.

Estoy haciendo una aplicacion sencilla, un ADO, un Datagrid, y unos text que muestran los datos junto con el Datagrid.

Añade y elimina correctamente registros, pero cuando le doy a editar, no me deja, me da error
con cada letra que borro y añado, pero luego lo deja añadido. He mirado y el

Ado1.recordset.editmode esta en 0, o sea no edicion. El codigo es este:

1) Uso un boton para activar los text y permitir edicion
On Error Resume Next
Dim p As String
If REG > 0 Then

Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False

'ASIGNA A CADA TEXTO SU CAMPO DEL LA BD
'Text1.Text = Ado1.Recordset!NOMBRE
'Text2.Text = Ado1.Recordset!APELLIDOS
'Text3.Text = Ado1.Recordset!ABONADO
'Text4.Text = Ado1.Recordset!DNI
'Text5.Text = Ado1.Recordset!SECTOR
'Text6.Text = Ado1.Recordset!ASIENTO
'Text7.Text = Ado1.Recordset!NACIMIENTO
'Text8.Text = Ado1.Recordset!CALLE
'Text9.Text = Ado1.Recordset!LOCALIDAD
'Text10.Text = Ado1.Recordset!PROVINCIA
'Text11.Text = Ado1.Recordset!ALTA


Command3.Enabled = True
Command4.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command5.Enabled = False
Command6.Enabled = False

Command11.Enabled = True
Else

q = MsgBox("No hay registros que modificar", vbOKOnly, "Mensaje de advertencia")

End If

2) otro boton para validar el cambio o cancelarlo, pero el error sale mientras editas los text

Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Text6.Locked = True
Text7.Locked = True
Text8.Locked = True
Text9.Locked = True
Text10.Locked = True
Text11.Locked = True

'Ado1.Recordset!NOMBRE = Text1.Text
'Ado1.Recordset!APELLIDOS = Text2.Text
'Ado1.Recordset!ABONADO = Text3.Text
'Ado1.Recordset!DNI = Text4.Text
'Ado1.Recordset!SECTOR = Text5.Text
'Ado1.Recordset!ASIENTO = Text6.Text
'Ado1.Recordset!NACIMIENTO = Text7.Text
'Ado1.Recordset!CALLE = Text8.Text
'Ado1.Recordset!LOCALIDAD = Text9.Text
'Ado1.Recordset!PROVINCIA = Text10.Text
'Ado1.Recordset!ALTA = Text11.Text

Ado1.Recordset.Update
Ado1.Recordset.Requery
'Ado1.Recordset.Refresh
REG = Val(Ado1.Recordset.RecordCount)

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True

Command11.Enabled = False

Podeis decirme porque sale el error o como solucionarlo? como puedo poner la propiedad edit en modo edicion???
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