Visual Basic - ayuda error 3705

Life is soft - evento anual de software empresarial
   
Vista:

ayuda error 3705

Publicado por hitlman (1 intervención) el 25/05/2010 01:18:13
necesito ayuda me sale el mensaje error 3705
la operacion no esta permitida si el objeto esta abierto

lo que estoy haciendo es que cuando se ingrese un codigo ,si ya se encuentra
grabado me salga un mensaje codigo ya existente ,de lo contrario me permita
grabarlo.


Dim cn As New Connection
Dim rs1 As New Recordset


Private Sub cmdeditar_Click()
rs1.Update
End Sub

Private Sub cmdeliminar_Click()
rs1.Delete
End Sub

Private Sub cmdgrabar_Click()

rs1.Open "select * from clientes where codigo ='" & Text1.Text & "'", cn, adOpenStatic, adLockOptimistic
rs1.MoveNext

If Not rs1.EOF Then
MsgBox ("codigo ya existe")
Else

rs1.Fields("codigo") = Text1.Text
rs1.Fields("nombre") = Text2.Text
rs1.Fields("apellidos") = Text3.Text
rs1.Fields("distrito") = DataCombo1.Text

Call grabar

End If

End Sub

Sub grabar()
rs1.Update

End Sub


Private Sub cmdnuevo_Click()

Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Me.DataCombo1.Text = Empty

rs1.AddNew
End Sub

Private Sub DataGrid1_Click()
Text1.Text = rs1.Fields("codigo")
Text2.Text = rs1.Fields("nombre")
Text3.Text = rs1.Fields("apellidos")

End Sub

Private Sub Form_Load()
On Error Resume Next

Dim cn As New Connection
Dim rs As New Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Escritorio\kgv2\base.mdb;Persist Security Info=False"

cn.CursorLocation = adUseClient

rs1.Open "select * from clientes ", cn, adOpenStatic, adLockOptimistic

Set Me.DataGrid1.DataSource = rs1


End Sub
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

RE:ayuda error 3705

Publicado por Jackson Cruz (15 intervenciones) el 26/05/2010 17:23:33
Tienes que establecer la propiedad CursorLocation del objeto Recordset de ADO en adUseClient
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda error 3705

Publicado por hitlman (4 intervenciones) el 28/05/2010 19:06:21
hola jackson
la que me dices ya lo hice y nada
me sale el mismo mensaje la operacion no ets permitida si el objeto esta abierto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar