La forma MAS VELOZ!!
Publicado por José Iván G. (1 intervención) el 19/02/2004 15:58:12
Hola a todos..
Tengo un programa que funciona en varias ciudades.. lastimosamente lo tengo con una base de datos en ACCES, trabajo con ADO, para las personas que trabajan en las otras ciudades el programa es demasiado lento, lo que no es para las personas que estan en la sucursal donde está la bd obviamente. nos conectamos por banda ancha a 128. aquí explico la forma en que me conecto.. alguien me puede enseñar que mejora le puedo hacer a esta conexión para que sea mas rápida?? tengan en cuenta que cada que yo abro y cierro la conección en cada consulta o update.. la forma que me conecto es la siguiente:
Public Sub Conectar()
Set DbaseConn = New ADODB.Connection
DbaseConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasededatos & ";Persist Security Info=False"
End Sub
Public Sub RecordSet()
Set RecSet = New ADODB.RecordSet
RecSet.ActiveConnection = DbaseConn
RecSet.CursorLocation = adUseClient
RecSet.CursorType = adOpenDynamic
RecSet.LockType = adLockOptimistic
End Sub
Mil gracias de antemano
Tengo un programa que funciona en varias ciudades.. lastimosamente lo tengo con una base de datos en ACCES, trabajo con ADO, para las personas que trabajan en las otras ciudades el programa es demasiado lento, lo que no es para las personas que estan en la sucursal donde está la bd obviamente. nos conectamos por banda ancha a 128. aquí explico la forma en que me conecto.. alguien me puede enseñar que mejora le puedo hacer a esta conexión para que sea mas rápida?? tengan en cuenta que cada que yo abro y cierro la conección en cada consulta o update.. la forma que me conecto es la siguiente:
Public Sub Conectar()
Set DbaseConn = New ADODB.Connection
DbaseConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabasededatos & ";Persist Security Info=False"
End Sub
Public Sub RecordSet()
Set RecSet = New ADODB.RecordSet
RecSet.ActiveConnection = DbaseConn
RecSet.CursorLocation = adUseClient
RecSet.CursorType = adOpenDynamic
RecSet.LockType = adLockOptimistic
End Sub
Mil gracias de antemano
Valora esta pregunta


0