Cuestión : Acceso 2007 lento al acoplamiento a la base de datos de Oracle

Oh wisdomed a gurú del acceso en el colmo,
I tienen cierto código que restaura sus acoplamientos de las tablas a una base de datos del oráculo.  ¿Por alguna razón tarda un tiempo muy largo (3 a 5 minutos) para terminar uno o dos conexiones y me estoy preguntando si cualquier persona podría hechar una ojeada mi código para sugerir un cambio o un pellizco? class= " lineNumbers " >
1 del >

Ted
 del 

Many:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
fncRelink >Public codeBody de la función del " prettyprint " del class= del id= " codeSnippet766792 " del >
 0)
     Tabla que reconecta de Debug.Print “: ” y TD. Nombre
     TD. Conectar = tintineo
     td.RefreshLink
  Terminar si
Después

Debug.Print “reconectan terminado.”

Quit_Handler:
Salir la función

Err_Handler:
    MsgBox Err.Description, vbInformation, “reconecta”
    Err.Number = 0
    Curriculum vitae Quit_Handler
Función del final
class= > " claro " de 

  
  class= del

Respuesta : Acceso 2007 lento al acoplamiento a la base de datos de Oracle

la escritura funciona a través de ANUNCIO, consigue a todos los grupos de la distribución y para cada uno crea la hoja de trabajo separada adentro sobresale y enumera a sus miembros.
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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

Opción explícita

adoCommand dévil, adoConnection, strBase, strFilter, strAttributes
objRootDSE dévil, strDNSDomain, strQuery, adoRecordset, strName, groupType, groupName, iRow
objExcel dévil, arrMembers, strMember

'Objetos de la DIFICULTAD de la disposición.
Fijar el adoCommand = CreateObject (“ADODB.Command”)
Fijar el adoConnection = CreateObject (“ADODB.Connection”)
adoConnection.Provider = “ADsDSOObject”
adoConnection.Open “abastecedor activo del directorio”
adoCommand.ActiveConnection = adoConnection

'Dominio activo entero del directorio de la búsqueda.
Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)
strDNSDomain = objRootDSE.Get (“defaultNamingContext”)
strBase = ""

'Filtro en grupos de la distribución.
strFilter = “(objectCategory=group)”

'Lista delimitada coma de valores de cualidad a recuperar.
strAttributes = “distinguishedName, miembro, groupType, nombre”

'Construir la pregunta del sintaxis de LDAP.
strQuery = strBase y “; ” y strFilter y “; ” y strAttributes y “; sub-estructura”
adoCommand.CommandText = strQuery
adoCommand.Properties (“tamaño de página”) = 100
adoCommand.Properties (“descanso”) = 30
adoCommand.Properties (el “escondrijo resulta”) = falso

'Funcionar con la pregunta.
Fijar el adoRecordset = adoCommand.Execute

Fijar el objExcel = CreateObject (“Excel.Application”)
Con el objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Visible = verdad

'Enumerar el recordset resultante.
Hacer hasta adoRecordset.EOF
'Recuperar los valores y la exhibición.
strName = adoRecordset.Fields (“distinguishedName”). Valor
groupType  = adoRecordset.Fields (“groupType”). Valor
el groupName  = substituye (adoRecordset.Fields (“nombre”). Valor, “CN=”, "")

'conseguir solamente a grupos de la distribución
si groupType=2 o groupType=4 o groupType=8 entonces
	irow=1
	.ActiveWorkbook.Worksheets.Add
	groupName de .ActiveSheet.Name=
	arrMembers = adoRecordset.Fields (“miembro”). Valor

	Grupo de la distribución de Wscript.Echo “: ” y strName
	Si IsNull (arrMembers) entonces
		Wscript.Echo “--  ”
	
		Para cada strMember en arrMembers
			Wscript.Echo “-- ” y strMember
			Fijar el objRootDSE = GetObject (“LDAP: /“&strMember)
			. Células (el iRow, 1) = substituye (objRootDSE.Name, “CN=”, "")
			irow=irow + 1
		Después
	Terminar si
Terminar si
'Moverse al expediente siguiente en el recordset.
adoRecordset.MoveNext
Lazo
. Columnas (1).entirecolumn.autofit
Extremo con

'Limpiar.
adoRecordset.Close
adoConnection.Close
Fijar el objExcel = nada
Otras soluciones  
 
programming4us programming4us