• Lunes 18 de Noviembre de 2024, 07:29

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - raist

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Comprobaciones Con Muuuuuchos Registros
« en: Viernes 11 de Noviembre de 2005, 09:14 »
Wenaaaaaasss

tengo dos recordsets, uno para cada ODBC. Con cada uno hago una consulta select sql para objener los registros de las bases de datos correspondientes.

El caso es que tengo que comparar todos los elementos de uno con todos los elementos de otro y pasa que uno tiene 18000 registros y el otro 4500 (mas o menos) con lo que tiene que hacer 81 millones!!!! de comprobaciones y claro, el programa se queda colgado y no responde, hay que finalizar aplicacion.

Lo he hecho de la siguiente forma:


Do While Not reg_art_dat.EOF

  Do While Not reg_catalogo.EOF

  If reg_art_dat.fields("f_art_cod") = reg_catalogo.fields("REF") Then
    escribir = 1
  End If

  reg_catalogo.MoveNext

  Loop

  reg_art_dat.MoveNext
Loop

Al poco de ejecutar el programa se queda como que no responde pero he pensado que tiene que tardar bastante.

Mi pregunta es ¿puede quedarse el visual basic 6.0 colgado al tener que manejar tanta informacion (81 millones de comprobaciones, 18000 registros de un lado con 4500 registros de otro) o esta preparado para soportarlo?

Muchas gracias!!!

saludos.

2
Visual Basic 6.0 e inferiores / Sos: Recorrido De Registros Multiple
« en: Jueves 10 de Noviembre de 2005, 13:56 »
Wenaaaaaasss

tengo dos recordsets, uno para cada ODBC. Con cada uno hago una consulta select sql para objener los registros de las bases de datos correspondientes.

El caso es que tengo que comparar todos los elementos de uno con todos los elementos de otro y pasa que uno tiene 18000 registros y el otro 4500 (mas o menos) con lo que tiene que hacer 81 millones!!!! de comprobaciones y claro, el programa se queda colgado y no responde, hay que finalizar aplicacion.

He hecho que en cada pasada sume el conteo en un archivo de la siguiente forma:

j = 0
Do While Not reg_art_dat.EOF

Do While Not reg_catalogo.EOF

j = j + 1
Set conteo = fso.createtextfile(App.Path & "\conteo.txt", True)
conteo.writeline (j)
conteo.Close

If reg_art_dat.fields("f_art_cod") = reg_catalogo.fields("REF") Then
escribir = 1
End If

reg_catalogo.MoveNext

Loop

reg_art_dat.MoveNext
Loop

y despues de cerrarlo porque se ha quedado colgado en el archivo conteo.txt tengo unas veces 5120, otras 1024 o 414. Esas son las veces que cada vez ha podido entrar en el bucle interior antes de quedarse colgado.

¿Como puedo resolver este problema? por favor me urge mucho.

Muchas gracias!!!

saludos.

3
Visual Basic 6.0 e inferiores / Ayuda Con Excel Urgente
« en: Miércoles 2 de Noviembre de 2005, 11:48 »
Tengo que consultar datos de una hoja de excel y tras buscar en varios sitios he probado de la siguiente forma:

Dim mixl As Object

Set mixl = GetObject("f:\tarifa\Tarifas Serviempresa 2005.xls")
mixl.application.Visible = True
mixl.Parent.windows(1).Visible = True
Set mixl = GetObject("f:\tarifa\Tarifas Serviempresa 2005.xls")
lista_catalogo.List(1) = mixl.Worksheets(1).Range("I" & 4320).Value

Esto es para para extraer el dato de la celda I4320 (existe en mi hoja) de la hoja 1 y me da el error 381 (el indice de la matriz de propiedades no es valido).

Tambien he probado cambiando la ultima linea por la siguiente:

lista_catalogo.List(1) = mixl.Worksheets(1).Cells(4320, "I").Value

y me da el mismo error. ¿Como puedo resolver este error?
¿Podria extraer los datos median odbc con sonsultas sql?
Ayuda por favor, urge.

Muchas gracias de antemano.

Páginas: [1]