Influye en la Velocidad el abrir y cerrar tablas?
Publicado por Richard (51 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:
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
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 Thentxtplaca = 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 ThenElse
MsgBox "Registro no Encontrado, Reviselo he intente de Nuevo", vbInformation, "Sistema"
End If
End If
Valora esta pregunta
0