Correr código para varias tablas

Espero poder explicar bien mi problema. Tengo una tabla en access llamada Datos, con los campos codEstacion, dia08, fecha, año, latitud, longitud, altitud, tmax, tmin. Esta tabla contiene datos diarios del año 2008, el código que te pongo a a continuación, lo que hace es coger crear una carpeta correspondiente al año, en este caso 2008, luego crea otra carpeta dentro de esta que corresponde a TMAX, dentro de la cual se va almacenar archivos txt que se obtendrán como salida, estos van a coorresponder a valores de 12 en 12 de TMAX para cada codestacion formándose así los archivos de cada 12dias hasta terminar el año.
Public Sub Command0_Click()
Dim lngFichero As Long
Dim strFichero, carpetaA, carpetaB As String
Dim MiRS As DAO.Recordset 'Variable de recordset
Dim sRegistro As String 'Para guardar los datos
Dim sql, sq As String
Dim strCodestacion As String
Dim i, j As Integer
Dim fs
'Crear carpeta
Set fs = CreateObject("Scripting.FileSystemObject")
carpetaA = fs.CreateFolder("D:\Clima\2008")
carpetaB = fs.CreateFolder("D:\Clima\2008\TMAX")
j = 0
For i = 1 To 18
strFichero = carpetaB
'crear nombre de los archivos txt de salida
strFichero = strFichero & "\TMAX" + Trim(Str(i)) + ".txt"
'Crear una consulta con la tabla
sql = "SELECT * FROM Datos order by codestacion, dia08"
Set MiRS = CurrentDb.OpenRecordset(sql, dbOpenForwardOnly)
lngFichero = FreeFile(1)
strCodestacion = ""
sRegistro = ""
' Abrir las carpetas y generar los archivos
Open strFichero For Output As #lngFichero
    Do While Not MiRS.EOF
        If Val(MiRS("dia08")) >= ((12 * j) + 1) And Val(MiRS("dia08")) <= (12 * i) Then
                If strCodestacion = Trim(MiRS!Codestacion) Then
                         sRegistro = sRegistro + Space(3) + Format(Trim(MiRS!tmax), "##.00", 3)
                         If Val(MiRS("dia08")) = (12 * i) Then
                            Print #lngFichero, Format(sRegistro, "##.00")
                         End If
                Else
                     If strCodestacion = "" Then
                         strCodestacion = Trim(MiRS!Codestacion)
                         Print #lngFichero, Format(strCodestacion, "000###") + Space(3) + Format(Trim(MiRS!Lat), "##.0000") + Space(3) + Format(Trim(MiRS!Lon), "##.0000") + Space(3) + Trim(MiRS!Altitud)
                         sRegistro = Format(Trim(MiRS!tmax), "##.00")
                     Else
                         strCodestacion = Trim(MiRS!Codestacion)
                         sRegistro = Format(Trim(MiRS!tmax), "##.00")
                         Print #lngFichero, Format(strCodestacion, "000###") + Space(3) + Format(Trim(MiRS!Lat), "##.0000") + Space(3) + Format(Trim(MiRS!Lon), "##.0000") + Space(3) + Trim(MiRS!Altitud)
                     End If
                End If
        End If
        MiRS.MoveNext
    Loop
j = j + 1
Close #lngFichero
        MiRS.Close
        Set MiRS = Nothing
Next i
End Sub
El código funciona bien, pero solo para un año especifico y para una tabla determinada, como puedo hacer en el código para que mi programa reconozca nombres de los campos de otras tablas, es decir tengo que trabajar con este código pero en otras tables que no tienen el nombre igual de los campos es decir codestacion en otra table puede ser stn, ¿cómo podría el programa reconocer ese nombre?

1 respuesta

Respuesta
1
Veo que estas usando consultas con sql
Existe una consulta para conocer los campos de una tabla
sql='show columns from tabla'
La cual te regresa los nombres de las columnas
Epero te sirva
Lo que sucede es que tengo que correr el código que puse pero sin modificar nada en el texto y lo tengo que hacer para varias tablas que están en mi misma base de datos, la pregunta es que en las tablas los campos que corresponden al código de estación no siempre cohiciden con el mismo nombre en una tabla puede ser CodEstacion en otra estación en otra IdEst, etc igual para la temperatura máxima, en una es tmax en otrmax en otra val... como puedo hacer para que programa sepa cual campo corresponda y correr el programa sin modificar el nombre de las variables... debo agregar algo al programa.
Gracias
Si te entiendo lo que pasa es que me parece que no es posible hacerlo desde un DAO
por ejemplo php tiene su función mysql_fetch_field() la cual te muestra los campos de una consulta, pero me parece (no estoy seguro) que exista algo parecido usando DAO en VB lo que puedes hacer es 1 no usar los nombres de los campos si no index es decir en una tabla con campos c1 y c2 envés de MiRS("c1") usar MiRS(0) y MiRS("c2") usar MiRS(1) esto solo en caso de que en las tablas las columnas estén colocadas de igual forma.
Otra solución podría ser si tienes todos los nombres posibles de los campos en las diferentes tablas usar show columns from tabla y comprarar con los campos que tu tienes para saber cual usar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Generar folder, BD y otros desde código.

Hice un programa que en un inicio era para una determinada tabla, entonces en el programa llama a esa tabla, luego trabajaba con algunos campos de la tabla como AL, Cod, TM, estos campos me servían para correr el programa y efectuar algunas...
1 respuesta

¿Cómo puedo importar txt a base de datos en vb 6.0?

Estoy haciendo un sistema y me trabe, lo que pasa es que tengo un formulario en vb 6.0 y en este tengo que mostrar los datos de un *.txt y no se como jalarlos, ademas me gustaría que me dijera sobre que componente debo insertar primero para que pueda...
1 respuesta

Macro unir archivos de word en orden alfabético

He estado investigando y encontré una rutina que adapte para unir varios archivos de word en uno solo. Sin embargo no se como lograr que los archivos sean unidos alfabéticamente. La rutina que investigue es la siguiente: Dim strFichero As String Dim...
1 respuesta

Funcion dias festivos

Tengo una función que calcula días laborables de lunes a Viernes entre dos fechas de la siguiente forma: Function Dias_Laborables(ByVal fecha_inicio As Date, ByVal fecha_fin As Date) As Integer Dim i As Variant Dim num_dias As Integer On Error GoTo...
3 respuestas

Autonuméricos

Necesito crear un campo que incremente su valor numérico de uno en uno y con el siguiente formato; 001/2003, 002/2003, 003/2003 y así sucesivamente. También necesito que al cambiar el año el registro se ponga a cero y salga el año en vigor, de esta...
4 respuestas

Deferencia entre registros Access

Resulta que estoy trabajando en una base de datos y de una consulta obtengo los valores de un contador con distintas fechas para distintos autos y quiero crear otro campo el cual me diga la diferencia entre el nuevo contador y el anterior... Aquí va...
1 respuesta

Ayuda para suma de valores de un listbox

Quisiera saber si alguien me puede ayudar, estoy haciendo un formulario para una factura en visual studio 2008, tengo un problema he buscado como sumar los valores que voy agregando a un listbox y que me los vaya mostrando en una etiqueta, pero no he...
1 respuesta

¿Cómo puedo mostrar mensajes de aviso al cumplir una condición utilizando Microsoft Access?

Tengo un formulario que me despliega los campos num_hab, nombre, fec_hr_salida. Ejemplo 2345 Juan Morales 13/07/2007 14:00:00 pm 2561 Elisa Lopez 13/07/2007 14:20:00 pm Me manda un mensaje del primer registro de que ya es su hora de salida. Esta...
1 respuesta

Cargar txt a access desde vba

Hace un par de meses empecé a usar access para manejar una BD y de a poco fui aprendiendo SQL y algo de VBA. Mi problema es el siguiente quiero automatizar la carga de datos (la BD es de un sistema de cobranzas) el banco realiza los cobros de los...
1 respuesta

MACRO Unir Ficheros WORD

Mi cuestión es acerca de como unir archivos: Ejemplo tengo una carpeta con 100 archivos word y quiero unificarlos en 1 rápidamente. Están ordenados del 1 al 100. Encontré este código por internet pero me los une aleatoriamentes sin orden de tamaño,...
1 respuesta