Visual Basic - Influye en la Velocidad el abrir y cerrar tablas?

Life is soft - evento anual de software empresarial
   
Vista:

Influye en la Velocidad el abrir y cerrar tablas?

Publicado por Richard (49 intervenciones) el 09/05/2016 21:30:39
HOla. Tengo una duda. Yo utilizo Dao para acceder a la base de datos access de la siguiente forma:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim Mensaje As String
Mensaje = InputBox("Escriba el  Número de Placa", "Buscar")
Set b = OpenDatabase(ReadIniValue(App.Path & "\rutagps.ini", "bd", "ruta"))
Set r = b.OpenRecordset("vehiculo")
r.Index = "placa"
r.Seek "=", Mensaje
If Not r.NoMatch Then
    txtplaca = r.Fields(0)
    txtcarro = r.Fields(1)
    txtcedula = r.Fields(2)
    txtnombre = r.Fields(3)
    txtapellido = r.Fields(4)
    fecha_contrato = r.Fields(5)
    vencimiento = r.Fields(6)
    txtfactura = r.Fields(7)
    pago_desde = r.Fields(8)
    hasta = r.Fields(9)
    txtconcepto = r.Fields(10) & ""
    txttelefono = r.Fields(11) & ""
    txtgps = r.Fields(12)
    txtsimcard = r.Fields(13)
    txtcorreo = r.Fields(14)
    txtdueño = r.Fields(15) & ""
    txtcedula_dueño = r.Fields(16) & ""
    txtplaca.Enabled = False
    cmdmodificar.Enabled = True
    cmdguardar.Enabled = False
    Call contar_vehiculo("vehiculo", ReadIniValue(App.Path & "\rutagps.ini", "bd", "ruta"))
    Call moroso("vehiculo", ReadIniValue(App.Path & "\rutagps.ini", "bd", "ruta"))
    Label6.Visible = True
    Label9.Visible = True
Else
    If Mensaje = Empty Then
Else
    MsgBox "Registro no Encontrado, Reviselo he intente de Nuevo", vbInformation, "Sistema"
    End If
End If
Como se puede notar no cierro la tabla ni la base con r.close b.close pero aun así corre, pero queria saber si cerrandola puede trabajar mas rápido o consume más memoria???? que me recomiendan??. La aplicacion trabaja en Red
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