run-time-error-3705 Que tal compañeros, me pueden ayudar con este error, tengo una serie de text que me los guarda en una tbla de sql y esa misma me la muestra en un msnflexgrid y quiero hacer modificar y eliminar registros desde msnflexgrid pero me marca el error "operation is not allowed when the objects is open en la "Sub cargar_grilla"....
Les dejo el code para que sea mas entendible....
Public Sub cargar_grilla(strquery)
Gd1.Rows = 1
Dim rs As New ADODB.Recordset
***cnnSQLServer.Open***AQUI ME MARCA EL ERROR
rs.ActiveConnection = cnnSQLServer
rs.Source = strquery
rs.Open
rs.MoveFirst
Do
Gd1.AddItem rs!idFam & vbTab & rs!idNomina & vbTab & rs!idParentesco & vbTab & rs!Nombre & vbTab & rs!Direccion & vbTab & rs!Colonia & vbTab & rs!Telefono & vbTab & rs!idActividad & vbTab & rs!idSexo & vbTab & rs!datNacimiento
Gd1.RowData(Gd1.Rows - 1) = rs!idFam
rs.MoveNext
Loop Until rs.EOF = True
cnnSQLServer.Close
Set rs = Nothing
End Sub
Private Sub CmdEliminar_Click()
Call mostrar_Familiar(Gd1.RowData(Gd1.Row))
If Val(Gd1.RowData(Gd1.Row)) = 0 Then
Exit Sub
End If
Dim rsu As New ADODB.Recordset
Call MsgBox("Está seguro que desea eliminar este Familiar", vbYesNo, "Atención")
cnnSQLServer.Open
strquery = ("delete from Familiares5 where idfam=" & Val(Gd1.RowData(Gd1.Row)))
cnnSQLServer.Execute (strquery)
Call cargar_grilla("Select * from Familiares5")
Call MsgBox("No se puede eliminar el Familiar verifique con el Administrador de Sistemas", , "Atención")
End Sub
Call MsgBox("Está seguro que desea eliminar este Familiar", vbYesNo, "Atención")
cnnSQLServer.Open
strquery = ("delete from Familiares5 where idfam=" & Val(Gd1.RowData(Gd1.Row)))
cnnSQLServer.Execute (strquery)
Call cargar_grilla("Select * from Familiares5")
Call MsgBox("No se puede eliminar el Familiar verifique con el Administrador de Sistemas", , "Atención")
End Sub
GRACIAS............
