Interpretar codigo fuente. Ver comentarios

CalculoChik.bas

ReDim Preserve arrayCodigos(1)
        arrayCodigos(0) = "Codigos"
        Set ElisaCnn = New Connection
        ElisaCnn.Open "PROVIDER=MSDASQL;dsn=ELISA;uid=;pwd=datosElisaCNDR;"
        Set rsElisa = New Recordset
        rsElisa.Open "Select * from DatosProtocoloChik", ElisaCnn, adOpenDynamic, adLockOptimistic
        
        
        For i = 0 To 95
            If Not frmMain.txtProtocolo(i).Text Like "SINM*" Then
                If Not InStr(Join(arrayCodigos), Left(frmMain.txtProtocolo(i).Text, Len(frmMain.txtProtocolo(i).Text) - 1)) > 0 Then
                    arrayCodigos(UBound(arrayCodigos)) = Left(frmMain.txtProtocolo(i).Text, Len(frmMain.txtProtocolo(i).Text) - 1)
                    ReDim Preserve arrayCodigos(UBound(arrayCodigos) + 1)
                End If
            End If
        Next i
        
        Dim NewSize As Integer
        
        NewSize = UBound(arrayCodigos) - 2

        
        ReDim Preserve arrayMedias(NewSize, 2)
        
        For j = LBound(arrayCodigos) + 1 To UBound(arrayCodigos) - 1

Detalles:

A partir de la iteracion de la linea 9

Esto es para guardar en Chik CDC. Como hay dos partes de la misma muestra, una con antígeno viral y otra con antígeno normal se tiene que tomar el resultado de cada una de ellas para el resultado de la muestra. Se declara un arreglo de strings llamado arrayCodigos sin tamaño definido donde se irán poniendo los códigos únicos que existen en la placa. En el "if" valida que el código no existe en el arreglo, si no existe lo agrega y redimensiona al tamaño actual mas uno. Luego recorre este arreglo para poder poner el resultado.

De todas formas ya consultamos con el CNDR y esta técnica es muy remoto que la vuelvan a usar, así que mi consejo es que no pierdas mucho tiempo en ella.

Saludos