Problema con Recordset
Publicado por Humberto (2 intervenciones) el 15/08/2009 16:15:10
Hola tengo una aplicacion en la cual me genera el el error 3251 al intentar agregar o modificar un registro en un recordset el codigo es el siguiente:
Private Sub Command2_Click()
Dim tabla As Recordset
Dim sqlin As String
Set datos = New Connection
datos.ConnectionString = "Provider=VFPOLEDB.7;Data Source=C:Tablas;Mode=Share Deny None; Extended Properties="";User ID="";Password="";Mask Password=False; Cache Authentication=False; Encrypt Password=False;Collating Sequence=MACHINE;DSN="""
datos.Open
sqlin = "select * from valedat"
Set tabla = New Recordset
tabla.Open sqlin, datos, adOpenStatic, adLockOptimistic
tabla.AddNew (aqui marca el error)
tabla.Update
tabla.Close
Set tabla = Nothing
datos.Close
Set datos = Nothing
End Sub
y el error dice:
Error '3251' en tiempo de ejecucion:
El Recordset actual no admite actualizaciones. Puede ser una limitacion del proveedor o del tipo de bloqueo seleccionado.
Private Sub Command2_Click()
Dim tabla As Recordset
Dim sqlin As String
Set datos = New Connection
datos.ConnectionString = "Provider=VFPOLEDB.7;Data Source=C:Tablas;Mode=Share Deny None; Extended Properties="";User ID="";Password="";Mask Password=False; Cache Authentication=False; Encrypt Password=False;Collating Sequence=MACHINE;DSN="""
datos.Open
sqlin = "select * from valedat"
Set tabla = New Recordset
tabla.Open sqlin, datos, adOpenStatic, adLockOptimistic
tabla.AddNew (aqui marca el error)
tabla.Update
tabla.Close
Set tabla = Nothing
datos.Close
Set datos = Nothing
End Sub
y el error dice:
Error '3251' en tiempo de ejecucion:
El Recordset actual no admite actualizaciones. Puede ser una limitacion del proveedor o del tipo de bloqueo seleccionado.
Valora esta pregunta


0