Visual Basic - Cursores abiertos

Life is soft - evento anual de software empresarial
   
Vista:

Cursores abiertos

Publicado por MIAN (21 intervenciones) el 15/11/2012 19:10:57
Buenas tardes.

tengo una aplicacion desarrollada con VB 6.0 y tablas de Access.
y dentro de ella, mando abrir varias conexiones...como veran en este ejemplo
abro la conexion conect3Buscar y el cursor cursor3Buscar....al finalizar las vuelvo a cerrar

al Salir totalmente de la aplicacion ( cerrando todas sus pantallas ) y verifico las aplicaciones
que estan corriendo en la PC, siempre me muestra que la aplicacion que acabo de cerrar, aun esta la sesion abierta.

Me faltara cerrar algo mas?.....Gracias por su ayuda


Public Sub Despliega_Foto(MODELOW)
MODELOW = Trim$(LLAVE) & ".JPG"
Dim conect3Buscar As ADODB.Connection
Dim cursor3Buscar As New ADODB.Recordset
Dim comConsulta3Buscar As Command
Set comConsulta3Buscar = New Command
Set conect3Buscar = New ADODB.Connection
conect3Buscar.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=RutaDB.accdb;Persist Security Info=False"
comConsulta3Buscar.ActiveConnection = conect3Buscar
comConsulta3Buscar.CommandText = "select * from modelos where modelo = '" & MODELOW & "'"
cursor3Buscar.Open comConsulta3Buscar.CommandText, conect3Buscar, adOpenKeyset, adLockOptimistic, 1
comConsulta3Buscar.Execute
If cursor3Buscar.EOF = False Then
frmModeloDetalle.Image1 = LoadPicture(cursor3Buscar.Fields.Item(1))
Else
frmModeloDetalle.Image1 = Nothing
End If
Set cursor3Buscar = Nothing
Set conect3Buscar = Nothing
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