skropper
28 de Mayo del 2004

tengo un problema que creo es facil, pero no encuentro respuestas el codigo es el siguiente:

Dim rs As Recordset
Dim cn As ADODB.Connection

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=192.168.x.x;" _
& " DATABASE=expedientes;" _
& "UID=root;PWD=; OPTION=3"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New ADODB.Recordset
rs.Open "select * from encabezado", cn, adOpenStatic, adLockOptimistic, adCmdText
.....
ahora si yo quiero editar rs(0) como hago
y a su vez que otro usuario no lo modifique.

Yuval
28 de Mayo del 2004

Para modificar el recordset:

rs.move (0)
Cargas los campos por ejemplo en cajas de texto
text1.text=rs.fields("campo1")
......
.....

Despues modificas las cajas de texto y en un boton por ejemplo preguntas si quieres guardar los cambios si dices si pones:

rs.fields("campo1")=text1.text
....
....
...
rs.update


Para que otro usuario no pueda haceder al mismo registro es una de las propiedades del recorset adOpenStatic, adLockOptimistic poniendo alguno de las opciones pero en este momento no tengo la informacion a mano
SUERTE!!!!

skropper
28 de Mayo del 2004

muchas gracias por contestar tan rapido, a tu disposicion y gracias