public void AgregarAsociacion(int idpedido, int idticket, double total) {
   String sql = "UPDATE ticket SET id_pedido=? and ticket=? where total=?";
   try{
      PreparedStatement ps = null;
      ps = super.prepareStatement(sql);
      ps.setInt(1, idticket);
      ps.setInt(2, idpedido);
      ps.setInt(3, (int)total);
      ps.executeUpdate();
   }catch(Exception e){
      logger.error("error", e);
      logger.error("Query"+ sql);
   }
}

    If oFSpace < 10 And IsNull(oItem.DriveLetter) = False Then
       MsgBox "La unidad: " & oItem.DriveLetter & " tiene un espacio de: " & FormatSpace(oFREESpace)
       Call SendEmail()
    End If

SET oWMI   = GetObject("winmgmts:\\.\root\cimv2")
SET oItems = oWMI.ExecQuery("SELECT * FROM Win32_Volume WHERE DriveType = 3")
 
Dim oFSpace, oFREESpace
 
For Each oItem In oItems
    oFSpace = oItem.FreeSpace
    oFSpace = (oFSpace/ (1024^3))
    oFREESpace = cDbl(oItem.FREESpace)
 
    ' Me generaba un error porque [oItem.DriveLetter] me
    ' devolvia una string Null asi que utilice la función 
    ' [IsNull] para validarlo.
    If oFSpace < 10 And IsNull(oItem.DriveLetter) = False Then
        MsgBox "La unidad: " & oItem.DriveLetter & " tiene un espacio de: " & FormatSpace(oFREESpace)
    End If
Next
 
Function FormatSpace(oSpace)
    oSpace = oSpace/1024
    oSpace = oSpace/1024
    oSpace = oSpace/1024
    oSpace= FormatNumber(oSpace, 1)
 
    FormatSpace = oSpace
end Function

Dim oLista
oLista = "1;2;3"
msgbox Replace(oLista, ";", vbNewLine)

L3[0] = (L1[0] + L2[0]) * 0.66
L3[1] = (L1[1] + L2[1]) * 0.66
...